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

math.parser: simplify fix-float.

db4
John Benediktsson 2015-07-19 17:19:09 -07:00
parent 96ce04755a
commit 16c93c7874
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -437,11 +437,11 @@ M: ratio >base
<PRIVATE <PRIVATE
: fix-float ( str -- newstr ) : fix-float ( str -- newstr )
CHAR: e over member? [ CHAR: e over index [
"e" split1 [ fix-float ] dip "e" glue cut [ fix-float ] dip append
] [ ] [
CHAR: . over member? [ ".0" append ] unless CHAR: . over member? [ ".0" append ] unless
] if ; ] if* ;
: mantissa-expt-normalize ( mantissa expt -- mantissa' expt' ) : mantissa-expt-normalize ( mantissa expt -- mantissa' expt' )
[ dup log2 52 swap - [ shift 52 2^ 1 - bitand ] [ 1022 + neg ] bi ] [ dup log2 52 swap - [ shift 52 2^ 1 - bitand ] [ 1022 + neg ] bi ]