math.parser: do two digits down until 10.

2013-03-27 18:01:59 -07:00 · 2013-03-27 18:01:59 -07:00 · bf0f6476f5
parent b5b0839426
commit bf0f6476f5
1 changed files with 1 additions and 1 deletions
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@ -342,7 +342,7 @@ CONSTANT: ONES B{

 : (fixnum>dec) ( num accum -- num' accum )
    { fixnum sbuf } declare
-    [ over 65536 >= ] [ (two-digit) ] while
+    [ over 10 >= ] [ (two-digit) ] while
    [ over zero? ] [ (one-digit) ] until ; inline

 : (positive>dec) ( num -- str )