Integer.st
changeset 21386 6cdddfc6f2e0
parent 20687 7bd162e55581
child 21429 f926511bf350
--- a/Integer.st	Wed Feb 08 19:04:45 2017 +0100
+++ b/Integer.st	Wed Feb 08 19:40:23 2017 +0100
@@ -617,16 +617,9 @@
      bad (not using L and D) roman numbers.
      (Such numbers can be seen on some medevial buildings. "
 
-    |val|
-
-    RomanNumberFormatError
-        handle:[:ex |
-            val := exceptionalValue value
-        ]
-        do:[
-            val := self readFromRomanString:aStringOrStream
-        ].
-    ^ val
+    ^ RomanNumberFormatError
+        handle:[:ex | exceptionalValue value ]
+        do:[ self readFromRomanString:aStringOrStream ].
 
 
     "
@@ -643,7 +636,7 @@
      Integer readFromRomanString:'CLXXXXVIIII' onError:nil
 
    Error cases:
-\     Integer readFromRomanString:'LC'   onError:nil
+     Integer readFromRomanString:'LC'   onError:nil
     "
 
     "error cases:
@@ -729,6 +722,8 @@
         (Integer readFromRomanString:romanString onError:nil) ~= n ifTrue:[self halt].
      ]
     "
+
+    "Modified (comment): / 08-02-2017 / 19:07:00 / stefan"
 !
 
 readFromString:aString radix:base onError:exceptionBlock
@@ -773,6 +768,8 @@
     "Modified: / 15.11.1999 / 20:35:20 / cg"
 ! !
 
+
+
 !Integer class methodsFor:'class initialization'!
 
 initialize