Improved correctness of grammar-optional
authorD Herring <dherring@at.tentpost.dot.com>
Sun, 1 Apr 2007 18:26:08 +0000 (14:26 -0400)
committerD Herring <dherring@at.tentpost.dot.com>
Sun, 1 Apr 2007 18:26:08 +0000 (14:26 -0400)
parser.lisp

index b83bab8..05d37fe 100644 (file)
@@ -87,7 +87,7 @@
   `(multiple-value-bind (end value) (grammar-call ,x)
     (if end
         (values end value)
-        start)))
+        (values start nil))))
 
 (defmacro grammar-and (first &rest rest)
   "match = first, (grammar-and rest)"