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

src/prolog/machine/compile.rs

@@ -407,9 +407,12 @@ impl ClauseCodeGenerator {
         for ((name, arity), _) in dynamic_code_dir {
             wam.indices.dynamic_code_dir.insert((name.owning_module(), name.clone(), arity),
                                                 DynamicPredicateInfo::default());
+
+            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 {
             let entry = wam