From 3e8e976beec14b728570a08623a3bf7097ce0efc Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Fri, 2 May 2008 03:11:10 -0400
Subject: [PATCH] Negative numbers not working now, will fix later
---
extra/lisp/parser/parser.factor | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/extra/lisp/parser/parser.factor b/extra/lisp/parser/parser.factor
index 83f0278129..65ad01aa6f 100644
--- a/extra/lisp/parser/parser.factor
+++ b/extra/lisp/parser/parser.factor
@@ -18,8 +18,8 @@ RPAREN = ")"
dquote = '"'
squote = "'"
digit = [0-9]
-integer = ("-")? (digit)+ => [[ string>number ]]
-float = ("-")? (digit)+ "." (digit)* => [[ first3 >string [ >string ] dipd 3append string>number ]]
+integer = (digit)+ => [[ string>number ]]
+float = (digit)+ "." (digit)* => [[ first3 >string [ >string ] dipd 3append string>number ]]
number = float
| integer
id-specials = "!" | "$" | "%" | "&" | "*" | "/" | ":" | "<"