math.parser: fix a regression.
parent
d6d69952e5
commit
5b58e1d3e8
|
@ -361,8 +361,9 @@ unit-test
|
|||
{ f } [ "0o0" bin> ] unit-test
|
||||
{ f } [ "0x0" bin> ] unit-test
|
||||
|
||||
! #1229, float parsing bug
|
||||
! #1229, float parsing bug, and a regression
|
||||
{ -0.5 } [ "-.5" dec> ] unit-test
|
||||
{ "0" } [ "0" hex> ] unit-test
|
||||
|
||||
{ t } [ most-positive-fixnum number>string string>number fixnum? ] unit-test
|
||||
{ t } [ most-negative-fixnum number>string string>number fixnum? ] unit-test
|
||||
|
|
|
@ -285,6 +285,7 @@ DEFER: @neg-digit
|
|||
{ CHAR: b [ pick radix>> 16 = [ CHAR: b swap call ] [ @abort ] if ] }
|
||||
{ CHAR: o [ @abort ] }
|
||||
{ CHAR: x [ @abort ] }
|
||||
{ f [ 4drop 0 ] }
|
||||
[ swap call ]
|
||||
} case
|
||||
] curry require-next-digit ; inline
|
||||
|
|
Loading…
Reference in New Issue