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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/math/parser/parser-tests.factor
View File

@ -361,8 +361,9 @@ unit-test
{ f } [ "0o0" bin> ] unit-test { f } [ "0o0" bin> ] unit-test
{ f } [ "0x0" 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.5 } [ "-.5" dec> ] unit-test
{ "0" } [ "0" hex> ] unit-test
{ t } [ most-positive-fixnum number>string string>number fixnum? ] unit-test { t } [ most-positive-fixnum number>string string>number fixnum? ] unit-test
{ t } [ most-negative-fixnum number>string string>number fixnum? ] unit-test { t } [ most-negative-fixnum number>string string>number fixnum? ] unit-test

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

@ -285,6 +285,7 @@ DEFER: @neg-digit
{ CHAR: b [ pick radix>> 16 = [ CHAR: b swap call ] [ @abort ] if ] } { CHAR: b [ pick radix>> 16 = [ CHAR: b swap call ] [ @abort ] if ] }
{ CHAR: o [ @abort ] } { CHAR: o [ @abort ] }
{ CHAR: x [ @abort ] } { CHAR: x [ @abort ] }
{ f [ 4drop 0 ] }
[ swap call ] [ swap call ]
} case } case
] curry require-next-digit ; inline ] curry require-next-digit ; inline