From db1a69f6aa9cfd185178ad8a661d988160fbf99c Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Tue, 9 Sep 2008 12:09:23 -0400
Subject: [PATCH] Adding support for ' quote syntax in lisp.parser

---
 extra/lisp/parser/parser.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/extra/lisp/parser/parser.factor b/extra/lisp/parser/parser.factor
index 72344fd0dc..55672af13d 100644
--- a/extra/lisp/parser/parser.factor
+++ b/extra/lisp/parser/parser.factor
@@ -36,4 +36,6 @@ atom         = number
               | string
 s-expression = LPAREN (list-item)* RPAREN                => [[ second seq>cons ]]
 list-item    = _ ( atom | s-expression ) _               => [[ second ]]
-;EBNF
+quoted       = squote list-item                          => [[ second nil cons "quote" <lisp-symbol> swap cons ]]
+expr         = list-item | quoted
+;EBNF
\ No newline at end of file