check for control functors (,/;/->) before jumping to internal interpretation (#815)

2021-02-09 16:40:25 -07:00
parent 547c63b28e
commit 4d29a3ae3c
2 changed files with 20 additions and 12 deletions
--- a/src/loader.pl
+++ b/src/loader.pl
@@ -92,7 +92,7 @@ file_load(Stream, Path, Evacuable) :-
    catch(loader:load_loop(Stream, Evacuable),
          E,
          builtins:(loader:unload_evacuable(Evacuable),
-		    builtins:throw(E))),
+		            builtins:throw(E))),
    run_initialization_goals,
    '$pop_load_context'.

@@ -102,7 +102,7 @@ load(Stream) :-
    catch(loader:load_loop(Stream, Evacuable),
          E,
          builtins:(loader:unload_evacuable(Evacuable),
-		    builtins:throw(E))),
+		            builtins:throw(E))),
    run_initialization_goals,
    '$pop_load_context'.