Fixed constraint positioning bug

git-svn-id: svn://10.0.0.236/trunk@52566 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
waldemar%netscape.com 1999-11-02 20:54:44 +00:00
parent d1c10fc10e
commit 5123dfaa8d
2 changed files with 6 additions and 4 deletions

View File

@ -1137,8 +1137,9 @@
constraints)))
((eq component-source ':~)
(push (make-no-line-break-constraint pos) constraints))
(t (push (grammar-parametrization-intern grammar-parametrization component-source lhs-arguments) rhs)))
(incf pos))
(t
(push (grammar-parametrization-intern grammar-parametrization component-source lhs-arguments) rhs)
(incf pos))))
(list* lhs-nonterminal (nreverse rhs) production-name (nreverse constraints))))
production-source)))

View File

@ -1137,8 +1137,9 @@
constraints)))
((eq component-source ':~)
(push (make-no-line-break-constraint pos) constraints))
(t (push (grammar-parametrization-intern grammar-parametrization component-source lhs-arguments) rhs)))
(incf pos))
(t
(push (grammar-parametrization-intern grammar-parametrization component-source lhs-arguments) rhs)
(incf pos))))
(list* lhs-nonterminal (nreverse rhs) production-name (nreverse constraints))))
production-source)))