math.parser: number>string, don't throw zero division on '1/0'

diff --git a/core/math/parser/parser.factor b/core/math/parser/parser.factor
index 62ad455a888d0eb85c910463bb74a075f3b35afb..63c09ba8d39cb3d56cc39001278da50b2d9db3a6 100644 (file)
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@@ -69,7 +69,8 @@ TUPLE: number-parse
     digit> pick radix>> over > ; inline
 
 : ?make-ratio ( num denom/f -- ratio/f )
-    [ / ] [ drop f ] if* ; inline
+    ! don't use number= to allow 0. for "1/0."
+    [ dup 0 = [ 2drop f ] [ / ] if ] [ drop f ] if* ; inline
 
 TUPLE: float-parse
     { radix fixnum }