offset variable indexing for semi-context notations

This commit is contained in:
Mark Thom
2018-11-18 21:51:53 -07:00
parent c718e17346
commit c281c1b427

View File

@@ -34,7 +34,7 @@ expand_dcgs(Term0, N, (ModHead :- ModBody)) :-
append(Args, ['$VAR'(N), SemiContextArgs], ModArgs),
ModHead =.. [RuleName | ModArgs],
nonvar(Body),
expand_body(Body, ModBody, 0, N1).
expand_body(Body, ModBody, N, N1).
expand_dcgs(Term0, N, (ModHead :- ModBody)) :-
nonvar(Term0),
Term0 = (Head --> Body),