Fixed constraint positioning bug
git-svn-id: svn://10.0.0.236/trunk@52566 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
parent
d1c10fc10e
commit
5123dfaa8d
@ -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)))
|
||||
|
||||
|
||||
@ -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)))
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user