throw errors from phrase/{2,3} where expected (#1220)
This commit is contained in:
@@ -72,6 +72,7 @@ phrase_((A -> B), S0, S, M) :-
|
|||||||
phrase_(phrase(NonTerminal), S0, S, M) :-
|
phrase_(phrase(NonTerminal), S0, S, M) :-
|
||||||
phrase(NonTerminal, S0, S, M).
|
phrase(NonTerminal, S0, S, M).
|
||||||
phrase_([T|Ts], S0, S, _) :-
|
phrase_([T|Ts], S0, S, _) :-
|
||||||
|
must_be(list, [T|Ts]),
|
||||||
append([T|Ts], S, S0).
|
append([T|Ts], S, S0).
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user