Commits

Anonymous committed 90c829e

Bugfix: undefined variable in expansion
Keywords: bugfix, grammar

* generator/fg-grammar-lr.lisp (expand-complex-form-lr):
Bugfix: new rule was inserted in improper format.

Comments (0)

Files changed (1)

generator/fg-grammar-lr.lisp

     (ecase (first form)
       ((:* *)
        (push `(,generated-sym1 nil
-               ,generated-sym1 ,@(rest form)
                #'(lambda (cdr &rest car) ; Twisted!
-                          (append (reverse car) cdr)))
+                          (append (reverse car) cdr))
+               ,generated-sym1 ,@(rest form))
              generated-rules)
        (push `(,generated-sym1 nil 
                (constantly nil)