Another fix for calling rules from EBNF text.
authorD Herring <dherring@at.tentpost.dot.com>
Sun, 1 Apr 2007 20:33:41 +0000 (16:33 -0400)
committerD Herring <dherring@at.tentpost.dot.com>
Sun, 1 Apr 2007 20:33:41 +0000 (16:33 -0400)
parser.lisp

index dd770a6..13651cf 100644 (file)
@@ -42,6 +42,7 @@
 (defmacro grammar-wrap (x)
   "Wrap function or macro x as a callback"
   (cond ((null x) (error "Cannot execute nil."))
+        ((stringp x) `(grammar-wrap ,(read-from-string x)))
         ((symbolp x) (list 'quote x))
         ((listp x) `(lambda (string &key (start 0)) ,x))
         (t (error "Cannot call ~S" x))))