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

math.parser: make float-parse:point a fixnum.

db4
John Benediktsson 2015-07-30 18:16:31 -07:00
parent b3323c15bd
commit a8b3642c8c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -73,12 +73,12 @@ TUPLE: number-parse
TUPLE: float-parse TUPLE: float-parse
{ radix fixnum } { radix fixnum }
{ point } { point fixnum }
{ exponent } { exponent }
{ magnitude } ; { magnitude } ;
: inc-point-?dec-magnitude ( float-parse n -- float-parse' ) : inc-point-?dec-magnitude ( float-parse n -- float-parse' )
zero? [ [ 1 fixnum-fast ] change-magnitude ] when zero? [ [ 1 fixnum-fast ] change-magnitude ] when
[ 1 + ] change-point ; inline [ 1 fixnum+fast ] change-point ; inline
: store-exponent ( float-parse n expt -- float-parse' n ) : store-exponent ( float-parse n expt -- float-parse' n )
swap [ >>exponent ] dip ; inline swap [ >>exponent ] dip ; inline