steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.parser: do two digits down until 10.

db4
John Benediktsson 2013-03-27 18:01:59 -07:00
parent b5b0839426
commit bf0f6476f5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/math/parser/parser.factor
View File

@ -342,7 +342,7 @@ CONSTANT: ONES B{
: (fixnum>dec) ( num accum -- num' accum ) : (fixnum>dec) ( num accum -- num' accum )
{ fixnum sbuf } declare { fixnum sbuf } declare
[ over 65536 >= ] [ (two-digit) ] while [ over 10 >= ] [ (two-digit) ] while
[ over zero? ] [ (one-digit) ] until ; inline [ over zero? ] [ (one-digit) ] until ; inline
: (positive>dec) ( num -- str ) : (positive>dec) ( num -- str )