remove Term

This commit is contained in:
Mark Thom
2024-07-16 15:38:22 -06:00
committed by Mark Thom
parent 34ac85bb6d
commit 1ef681bd21
43 changed files with 3823 additions and 2720 deletions

View File

@@ -205,6 +205,7 @@ load_loop(Stream, Evacuable) :-
read_term(Stream, Term, [singletons(Singletons)])
; Term = end_of_file
),
% write('Term: '), writeq(Term), nl,
( Term == end_of_file ->
close(Stream),
'$conclude_load'(Evacuable)
@@ -219,6 +220,7 @@ load_loop(Stream, Evacuable) :-
compile_term(Term, Evacuable) :-
expand_terms_and_goals(Term, Terms),
% write('Terms: '), writeq(Terms),nl,
!,
( var(Terms) ->
instantiation_error(load/1)