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

speed up dec>float a little

db4
Joe Groff 2009-10-22 18:55:32 -05:00
parent cdd0e5774e
commit 943bde59f9
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

@ -83,8 +83,8 @@ SYMBOL: negative?
] if ; inline ] if ; inline
: dec>float ( str -- n/f ) : dec>float ( str -- n/f )
[ CHAR: , eq? not ] filter [ CHAR: , eq? not ] BV{ } filter-as
>byte-array 0 suffix (string>float) ; 0 over push B{ } like (string>float) ;
: hex>float-parts ( str -- neg? mantissa-str expt ) : hex>float-parts ( str -- neg? mantissa-str expt )
"-" ?head swap "p" split1 [ 10 base> ] [ 0 ] if* ; "-" ?head swap "p" split1 [ 10 base> ] [ 0 ] if* ;