Merge branch 'master' into strong-typing
commit
65fa9cf301
|
@ -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
|
||||
|
|
|
@ -87,7 +87,7 @@ SYMBOL: negative?
|
|||
>byte-array 0 suffix (string>float) ;
|
||||
|
||||
: number-char? ( char -- ? )
|
||||
"0123456789." member? ;
|
||||
"0123456789ABCDEFabcdef." member? ;
|
||||
|
||||
: numeric-looking? ( str -- ? )
|
||||
"-" ?head drop
|
||||
|
|
Loading…
Reference in New Issue