address issue #153

This commit is contained in:
Mark Thom
2019-09-05 22:43:50 -06:00
parent 4b22f80a77
commit 9d2ac9e235
7 changed files with 56 additions and 82 deletions

View File

@@ -1,9 +1,9 @@
repl :-
catch(read_and_match, E, '$print_exception'(E)),
'$repl' :-
catch('$read_and_match', E, '$print_exception'(E)),
false. %% this is for GC, until we get actual GC.
repl :- repl.
'$repl' :- '$repl'.
read_and_match :-
'$read_and_match' :-
write_term('?- ', [quoted(false)]),
read_term(Term, [variable_names(VarList)]),
'$instruction_match'(Term, VarList).