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

math.parser: add missing blank line between words

char-rename
Alexander Iljin 2016-11-16 09:45:25 +03:00 committed by John Benediktsson
parent 631707b496
commit 16403bb0c9
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -76,6 +76,7 @@ TUPLE: float-parse
{ point fixnum } { 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 fixnum+fast ] change-point ; inline [ 1 fixnum+fast ] change-point ; inline