rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

roll back extent of heap when loads are complete in loader.pl

Browse Source
This commit is contained in:
Mark Thom
2021-02-11 15:37:43 -07:00
parent 20cd0dd77a
commit 14efbb1356
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/loader.pl
View File

@@ -85,7 +85,9 @@ run_initialization_goals :-
). ).
file_load(Stream, Path) :- file_load(Stream, Path) :-
file_load(Stream, Path, _). file_load(Stream, Path, _),
false. %% Clear the heap.
file_load(_, _).
file_load(Stream, Path, Evacuable) :- file_load(Stream, Path, Evacuable) :-
create_file_load_context(Stream, Path, Evacuable), create_file_load_context(Stream, Path, Evacuable),
@@ -104,7 +106,9 @@ load(Stream) :-
builtins:(loader:unload_evacuable(Evacuable), builtins:(loader:unload_evacuable(Evacuable),
builtins:throw(E))), builtins:throw(E))),
run_initialization_goals, run_initialization_goals,
'$pop_load_context'. '$pop_load_context',
false. %% Clear the heap.
load(_).
load_loop(Stream, Evacuable) :- load_loop(Stream, Evacuable) :-
read_term(Stream, Term, [variable_names(VNs), singletons(Singletons)]), read_term(Stream, Term, [variable_names(VNs), singletons(Singletons)]),