fix bug with mark_non_var

2018-10-08 00:34:08 -06:00
parent fa1bb6df3a
commit 398d91576c
5 changed files with 25 additions and 26 deletions
--- a/src/prolog/lib/dcgs.pl
+++ b/src/prolog/lib/dcgs.pl
@@ -25,7 +25,7 @@ term_expansion(Term0, (ModHead :- ModBody)) :-
    !,
    nonvar(Head),
    Head =.. [RuleName | Args],
-    append(Args, ['$VAR'(0), '$VAR'(N)], ModArgs),
+    append(Args, ['$VAR'(0), '$VAR'(N)], ModArgs), %% problematic line.
    ModHead =.. [RuleName | ModArgs],
    nonvar(Body),
    expand_body(Body, ModBody1, 0, N1),