@@ -2,7 +2,7 @@ repl :-
|
||||
catch(read_and_match, E, '$print_exception'(E)),
|
||||
false. %% this is for GC, until we get actual GC.
|
||||
repl :- repl.
|
||||
|
||||
|
||||
read_and_match :-
|
||||
write_term('?- ', [quoted(false)]),
|
||||
read_term(Term, [variable_names(VarList)]),
|
||||
|
||||
Reference in New Issue
Block a user