Merge branch 'master' into strong-typing

db4
Joe Groff 2009-09-01 21:35:29 -05:00
commit 65fa9cf301
2 changed files with 3 additions and 1 deletions

View File

@ -38,6 +38,8 @@ unit-test
[ 2.0 ] [ "2." string>number ] unit-test
[ 255 ] [ "ff" hex> ] unit-test
[ "100.0" ]
[ "1.0e2" string>number number>string ]
unit-test

View File

@ -87,7 +87,7 @@ SYMBOL: negative?
>byte-array 0 suffix (string>float) ;
: number-char? ( char -- ? )
"0123456789." member? ;
"0123456789ABCDEFabcdef." member? ;
: numeric-looking? ( str -- ? )
"-" ?head drop