Merge branch 'master' into smarter_error_list

2009-04-13 20:35:35 -05:00 · 2009-04-13 20:35:35 -05:00 · eface15ffa
parent 28687d73c5 cb6f59ff5b
commit eface15ffa
1 changed files with 3 additions and 1 deletions
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@ -50,7 +50,9 @@ SYMBOL: radix
 SYMBOL: negative?

 : string>natural ( seq radix -- n/f )
-    [ [ digit> ] dip (digits>integer) ] each-digit ; inline
+    over empty? [ 2drop f ] [
+        [ [ digit> ] dip (digits>integer) ] each-digit
+    ] if ; inline

 : sign ( -- str ) negative? get "-" "+" ? ;