don't add default index for dynamic predicates unless defined at toplevel

diff --git a/src/prolog/machine/compile.rs b/src/prolog/machine/compile.rs
index 58cbcfc593f1030adc2c9071069b1666338ac5af..2554e256ab49c80798820a5997ee599abdf7550f 100644 (file)
--- a/src/prolog/machine/compile.rs
+++ b/src/prolog/machine/compile.rs
@@ -407,8 +407,11 @@ impl ClauseCodeGenerator {
         for ((name, arity), _) in dynamic_code_dir {
             wam.indices.dynamic_code_dir.insert((name.owning_module(), name.clone(), arity),
                                                 DynamicPredicateInfo::default());
-            wam.indices.code_dir.entry((name, arity))
-               .or_insert(CodeIndex::dynamic_undefined(self.module_name.clone()));
+
+            if self.module_name.as_str() == "user" {
+                wam.indices.code_dir.entry((name, arity))
+                   .or_insert(CodeIndex::dynamic_undefined(self.module_name.clone()));
+            }
         }
 
         for ((name, arity), p) in self.pi_to_loc {