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

math.parser: simplify store-exponent.

db4
John Benediktsson 2014-11-29 14:31:23 -08:00
parent 38bc43b968
commit 9033a28c09
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -52,7 +52,7 @@ TUPLE: float-parse
[ radix>> ] [ point>> 1 + ] [ exponent>> ] tri float-parse boa ; inline [ radix>> ] [ point>> 1 + ] [ exponent>> ] tri float-parse boa ; inline
: store-exponent ( float-parse n expt -- float-parse' n ) : store-exponent ( float-parse n expt -- float-parse' n )
swap [ [ drop radix>> ] [ drop point>> ] [ nip ] 2tri float-parse boa ] dip ; inline swap [ [ radix>> ] [ point>> ] bi ] 2dip [ float-parse boa ] dip ; inline
: ?store-exponent ( float-parse n expt/f -- float-parse' n/f ) : ?store-exponent ( float-parse n expt/f -- float-parse' n/f )
[ store-exponent ] [ drop f ] if* ; inline [ store-exponent ] [ drop f ] if* ; inline
@ -76,9 +76,7 @@ TUPLE: float-parse
: ?default-exponent ( float-parse n/f -- float-parse' n/f' ) : ?default-exponent ( float-parse n/f -- float-parse' n/f' )
over exponent>> [ over exponent>> [
over radix>> 10 = over radix>> 10 = [ 0 store-exponent ] [ drop f ] if
[ [ [ radix>> ] [ point>> ] bi 0 float-parse boa ] dip ]
[ drop f ] if
] unless ; inline ] unless ; inline
: ?make-float ( float-parse n/f -- float/f ) : ?make-float ( float-parse n/f -- float/f )