add use_module/{1,2} as full fledged predicates

2019-09-30 10:26:29 -06:00
parent 376b39a4ef
commit 9df14cf890
14 changed files with 261 additions and 59 deletions
--- a/src/prolog/machine/system_calls.rs
+++ b/src/prolog/machine/system_calls.rs
@@ -339,8 +339,7 @@ impl MachineState {
            self.p.local() + 1
        };

-        self.p = CodePtr::REPL(repl_code_ptr, p);
-        return Ok(());
+        Ok(self.p = CodePtr::REPL(repl_code_ptr, p))
    }

    fn truncate_if_no_lifted_heap_diff<AddrConstr>(&mut self, addr_constr: AddrConstr)
@@ -1513,7 +1512,7 @@ impl MachineState {
                    _ => unreachable!(),
                };

-                indices.global_variables.remove(&key);
+                indices.global_variables.swap_remove(&key);
            }
            &SystemClauseType::RemoveCallPolicyCheck => {
                let restore_default = match call_policy.downcast_mut::<CWILCallPolicy>().ok() {