add read support for user:term_expansion and user:goal_expansion

This commit is contained in:
Mark Thom
2019-01-05 19:22:38 -07:00
parent 36fdc8e822
commit 042779cff9
7 changed files with 70 additions and 23 deletions

View File

@@ -20,7 +20,7 @@ phrase(G, Ls0, Ls2) :-
phrase(G, Ls0, Ls1) :-
call(G, Ls0, Ls1).
term_expansion(Term0, Term) :-
user:term_expansion(Term0, Term) :-
numbervars(Term0, 0, N),
expand_dcgs(Term0, N, Term).