Adding support for ' quote syntax in lisp.parser

2008-09-09 12:09:23 -04:00 · 2008-09-09 12:09:23 -04:00 · db1a69f6aa
parent fbb958da82
commit db1a69f6aa
1 changed files with 3 additions and 1 deletions
--- 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