avoid overwriting IndexPtr's for clauses already declared dynamic (#227)

2019-11-20 10:50:33 -04:00
parent d3842bb070
commit f82c6f3fed
2 changed files with 6 additions and 5 deletions
--- a/src/prolog/machine/compile.rs
+++ b/src/prolog/machine/compile.rs
@@ -824,8 +824,9 @@ impl ListingCompiler {
                    .entry((name.clone(), arity))
                    .or_insert(vec![]);

-                indices.code_dir.insert((name.clone(), arity),
-                                        CodeIndex::dynamic_undefined(self.get_module_name()));
+		indices.code_dir
+		       .entry((name.clone(), arity))
+		       .or_insert(CodeIndex::dynamic_undefined(self.get_module_name()));
            }
            &Declaration::Hook(hook, _, ref queue) if self.module.is_none() => worker
                .term_stream