add expand_term/2

2018-10-15 20:07:22 -06:00
parent 24a7206021
commit eabb851d8c
4 changed files with 10 additions and 1 deletions
--- a/src/prolog/lib/dcgs.pl
+++ b/src/prolog/lib/dcgs.pl
@@ -43,6 +43,7 @@ term_expansion(Term0, (ModHead :- ModBody)) :-

 expand_body(Term0, (ModTerm, ModTerms), N0, N) :-
    nonvar(Term0), Term0 = (Term, Terms), !,
+    nonvar(Term),
    expand_body_term(Term, ModTerm, N0, N1),
    expand_body(Terms, ModTerms, N1, N).
 expand_body(Term0, ModTerm, N0, N) :-