don't emit overwriting warnings for term_expansion/2 or goal_expansion/2

This commit is contained in:
Mark Thom
2020-03-14 14:18:01 -06:00
parent 97aab6950c
commit 42a90b2d40
2 changed files with 10 additions and 2 deletions

View File

@@ -150,7 +150,15 @@ impl SubModuleUser for IndexStore {
fn insert_dir_entry(&mut self, name: ClauseName, arity: usize, idx: CodeIndex) {
if let Some(ref code_idx) = self.code_dir.get(&(name.clone(), arity)) {
if !code_idx.is_undefined() {
println!("Warning: overwriting {}/{}", &name, arity);
match (name.as_str(), arity) {
("term_expansion", 2) => {
}
("goal_expansion", 2) => {
}
_ => {
println!("Warning: overwriting {}/{}", &name, arity);
}
}
}
let (p, module_name) = idx.0.borrow().clone();

View File

@@ -380,7 +380,7 @@ impl MachineState {
self.reset_with_heap_preservation();
Some(output.result()))
Some(output.result())
}
}
}