math.parser: fix a regression.

db4
John Benediktsson 2015-07-14 22:05:25 -07:00
parent d6d69952e5
commit 5b58e1d3e8
2 changed files with 3 additions and 1 deletions

View File

@ -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

View File

@ -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