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

Negative numbers not working now, will fix later

db4
James Cash 2008-05-02 03:11:10 -04:00
parent dcab546b97
commit 3e8e976bee
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/lisp/parser/parser.factor
View File

@ -18,8 +18,8 @@ RPAREN = ")"
dquote = '"' dquote = '"'
squote = "'" squote = "'"
digit = [0-9] digit = [0-9]
integer = ("-")? (digit)+ => [[ string>number ]] integer = (digit)+ => [[ string>number ]]
float = ("-")? (digit)+ "." (digit)* => [[ first3 >string [ >string ] dipd 3append string>number ]] float = (digit)+ "." (digit)* => [[ first3 >string [ >string ] dipd 3append string>number ]]
number = float number = float
| integer | integer
id-specials = "!" | "$" | "%" | "&" | "*" | "/" | ":" | "<" id-specials = "!" | "$" | "%" | "&" | "*" | "/" | ":" | "<"