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

View File

@ -76,6 +76,7 @@ TUPLE: float-parse
{ point fixnum }
{ exponent }
{ magnitude } ;
: inc-point-?dec-magnitude ( float-parse n -- float-parse' )
zero? [ [ 1 fixnum-fast ] change-magnitude ] when
[ 1 fixnum+fast ] change-point ; inline