leave variable modules uninstantiated (#2685)

mthom · Dec 20, 2024 · 555dff5 · 555dff5
1 parent 7e22c12
commit 555dff5
Show file tree

Hide file tree

Showing 4 changed files with 224 additions and 165 deletions.
diff --git a/src/lib/builtins.pl b/src/lib/builtins.pl
@@ -364,7 +364,7 @@
 
 dispatch_prep(Gs, B, Conts) :-
     (  callable(Gs) ->
-       strip_module(Gs, M, Gs0),
+       loader:strip_module(Gs, M, Gs0),
        (  nonvar(Gs0),
           dispatch_prep_(Gs0, B, Conts) ->
           true
@@ -1373,7 +1373,7 @@
     (  var(Pred) ->
        '$get_db_refs'(_, _, _, PIs),
        lists:member(Pred, PIs)
-    ;  '$strip_module'(Pred, Module, UnqualifiedPred),
+    ;  loader:strip_module(Pred, Module, UnqualifiedPred),
        (  var(Module),
           \+ functor(Pred, (:), 2)
        ;  atom(Module)