FIXED: return exit code if swipl -c fails

SWI-Prolog · Feb 5, 2019 · d3f9bc1 · d3f9bc1
1 parent 28a7cac
commit d3f9bc1
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 3 deletions.
diff --git a/boot/init.pl b/boot/init.pl
@@ -1869,6 +1869,7 @@
     '$must_be'(list, Options),
     '$load_files'(Files, Module, Options).
 
+:- dynamic '$load_file_exception'/1.
 '$load_files'(X, _, _) :-
     var(X),
     !,
@@ -1885,15 +1886,19 @@
     List = [_|_],
     !,
     '$must_be'(list, List),
-    '$load_file_list'(List, Module, Options).
+    '$load_file_list'(List, Module, Options),
+    (   '$load_file_exception'(E)
+    ->  throw(E)
+    ;   true
+    ).
 '$load_files'(File, Module, Options) :-
     '$load_one_file'(File, Module, Options).
 
 '$load_file_list'([], _, _).
 '$load_file_list'([File|Rest], Module, Options) :-
     E = error(_,_),
     catch('$load_one_file'(File, Module, Options), E,
-          '$print_message'(error, E)),
+          assertz('$load_file_exception'(E)) ),
     '$load_file_list'(Rest, Module, Options).
 
 

diff --git a/boot/toplevel.pl b/boot/toplevel.pl
@@ -733,13 +733,19 @@
 %   Toplevel called when invoked with -c option.
 
 '$compile' :-
+    (   catch('$compile_', E, (print_message(error, E), halt(2)))
+    ->  true
+    ;   halt(1)
+    ).
+
+'$compile_' :-
     '$load_system_init_file',
     '$set_file_search_paths',
     init_debug_flags,
     '$run_initialization',
     attach_packs,
     use_module(library(qsave)),
-    catch(qsave:qsave_toplevel, E, (print_message(error, E), halt(1))).
+    qsave:qsave_toplevel.
 
 %!  '$config'
 %