ENHANCED: create Prolog flag sweep=true when running under sweep

diff --git a/sweeprolog.el b/sweeprolog.el
index bc23c25537b6f7ff7854e333add98b798885b8a3..2d023de0dad3cd052786e3f43e1e6f218091094e 100644 (file)
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -172,6 +172,8 @@ inserted to the input history in `sweeprolog-top-level-mode' buffers."
 
 (defcustom sweeprolog-init-args (list "-q"
                                       "--no-signals"
+                                      "-g"
+                                      "create_prolog_flag(sweep,true,[access(read_only),type(boolean)])"
                                       (expand-file-name
                                        "sweep.pl"
                                        (file-name-directory load-file-name)))