complex numbers in native factor, all of test suite except html and httpd tests runs...

[factor.git] / library / platform / native / parse-numbers.factor

diff --git a/library/platform/native/parse-numbers.factor b/library/platform/native/parse-numbers.factor
index dd083e972923c537e6411b65d1f23a8d3aad0f6b..90b528b196c0adcc68505e2021aa45459bae077b 100644 (file)
--- a/library/platform/native/parse-numbers.factor
+++ b/library/platform/native/parse-numbers.factor
@@ -62,7 +62,11 @@ USE: unparser
     ] ifte ;
 
 : (str>integer) ( str -- num )
-    0 swap [ digit> digit ] str-each ;
+    dup str-length 0 = [
+        not-a-number
+    ] [
+        0 swap [ digit> digit ] str-each
+    ] ifte ;
 
 : str>integer ( str -- num )
     #! Parse a string representation of an integer.
@@ -70,7 +74,7 @@ USE: unparser
         drop not-a-number
     ] [
         dup "-" str-head? dup [
-            nip str>integer neg
+            nip (str>integer) neg
         ] [
             drop (str>integer)
         ] ifte