Improved correctness of kleene*
authorD Herring <dherring@at.tentpost.dot.com>
Mon, 2 Apr 2007 02:42:00 +0000 (22:42 -0400)
committerD Herring <dherring@at.tentpost.dot.com>
Mon, 2 Apr 2007 02:42:00 +0000 (22:42 -0400)
parser.lisp

index 13651cf..a049f37 100644 (file)
     (if end
         (multiple-value-bind (e v) (kleene* f string :start end)
           (values e (cons value v)))
-        start)))
+        (values start nil))))
 
 (defmacro grammar-* (x)
   "match = {x}"