Merge branch 'master' into strong-typing

2009-09-01 21:35:29 -05:00 · 2009-09-01 21:35:29 -05:00 · 65fa9cf301
parent dc0944bad1 1106fb10f1
commit 65fa9cf301
2 changed files with 3 additions and 1 deletions
--- a/core/math/parser/parser-tests.factor
+++ b/core/math/parser/parser-tests.factor
@ -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
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@ -87,7 +87,7 @@ SYMBOL: negative?
    >byte-array 0 suffix (string>float) ;

 : number-char? ( char -- ? )
-    "0123456789." member? ;
+    "0123456789ABCDEFabcdef." member? ;

 : numeric-looking? ( str -- ? )
    "-" ?head drop