Commits

Anonymous committed 142f722

Merge bugfix from main--0.1
Keywords: bugfix, merge

Patches applied:

* lispnik@gmail.com--2006-fucc/fucc--main--0.1--versionfix-1
BUGFIX: second argument was lost in NTERM-BY-NAME call

Comments (0)

Files changed (1)

generator/fg-grammar.lisp

   (loop :for rule :in (grammar-rules grammar) :do
         (if (and (slot-boundp rule 'priority)
                  (symbolp (prec-priority rule)))
-            (let ((term (nterm-by-name (prec-priority rule))))
+            (let ((term (nterm-by-name (prec-priority rule) grammar)))
               (setf (prec-assoc rule)    (prec-assoc term)
                     (prec-priority rule) (prec-priority term)))
             (let ((last-term (find-if #'term-p (rule-right rule)