Move argv/1 to library(os)

2024-01-02 13:16:11 +01:00
parent 781f4afe25
commit 47b5ae7984
8 changed files with 79 additions and 43 deletions
--- a/src/loader.pl
+++ b/src/loader.pl
@@ -138,7 +138,7 @@ file_load_cleanup(Evacuable, Error) :-
    load_context(Module),
    abolish(Module:'$initialization_goals'/1),
    unload_evacuable(Evacuable),
-    (  clause('$toplevel':argv(_), _) ->
+    (  clause('$toplevel':started, _) ->
       % let the toplevel call loader:write_error/1
       throw(Error)
    ;  '$print_message_and_fail'(Error)