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

math.parser: remove unnecessary with-no-radix, thanks @jonenst!

db4
John Benediktsson 2015-07-16 07:32:44 -07:00
parent d9e6784db8
commit e280bafabe
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -279,28 +279,15 @@ DEFER: @neg-digit
[ @pos-first-digit ] [ @pos-first-digit ]
} case ; inline } case ; inline
: with-no-radix ( i number-parse n quot -- n/f )
[
swap {
{ CHAR: b [ pick radix>> 16 = [ CHAR: b swap call ] [ @abort ] if ] }
{ CHAR: o [ @abort ] }
{ CHAR: x [ @abort ] }
{ f [ 4drop 0 ] }
[ swap call ]
} case
] curry next-digit ; inline
: @neg-first-digit-no-radix ( i number-parse n char -- n/f ) : @neg-first-digit-no-radix ( i number-parse n char -- n/f )
{ {
{ CHAR: . [ ->required-mantissa ] } { CHAR: . [ ->required-mantissa ] }
{ CHAR: 0 [ [ @neg-digit-or-punc ] with-no-radix ] }
[ @neg-digit ] [ @neg-digit ]
} case ; inline } case ; inline
: @pos-first-digit-no-radix ( i number-parse n char -- n/f ) : @pos-first-digit-no-radix ( i number-parse n char -- n/f )
{ {
{ CHAR: . [ ->required-mantissa ] } { CHAR: . [ ->required-mantissa ] }
{ CHAR: 0 [ [ @pos-digit-or-punc ] with-no-radix ] }
[ @pos-digit ] [ @pos-digit ]
} case ; inline } case ; inline