bugfix for http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=512364

(the text interpreter number conversion treated "-" as 0)
forthy42 · Jan 20, 2009 · babed75 · babed75
1 parent 2244c5f
commit babed75
Showing 1 changed file with 17 additions and 14 deletions.
diff --git a/kernel/int.fs b/kernel/int.fs
@@ -163,21 +163,24 @@ has? os 0= [IF]
     over c@ '' = if
 	1 /string s'>unumber? exit
     endif
-    base @ >r  getbase sign? >r
-    0. 2swap
-    BEGIN ( d addr len )
-	dup >r >number dup
-    WHILE \ there are characters left
-	dup r> -
-    WHILE \ the last >number parsed something
-	dup 1- dpl ! over c@ [char] . =
-    WHILE \ the current char is '.'
-	1 /string
-    REPEAT  THEN \ there are unparseable characters left
-	2drop rdrop false
+    base @ >r  getbase sign?
+    over if
+        >r 0. 2swap
+        BEGIN ( d addr len )
+            dup >r >number dup
+        WHILE \ there are characters left
+                dup r> -
+            WHILE \ the last >number parsed something
+                    dup 1- dpl ! over c@ [char] . =
+                WHILE \ the current char is '.'
+                        1 /string
+                REPEAT  THEN \ there are unparseable characters left
+            2drop rdrop false
+        ELSE
+            rdrop 2drop r> ?dnegate true
+        THEN
     ELSE
-	rdrop 2drop r> ?dnegate true
-    THEN
+        drop 2drop 0. false THEN
     r> base ! ;
 
 \ ouch, this is complicated; there must be a simpler way - anton