add unify_with_occurs_check/2

2019-04-28 22:23:34 -06:00
parent 9dbadac14f
commit 14d629492d
6 changed files with 140 additions and 4 deletions
--- a/src/prolog/machine/system_calls.rs
+++ b/src/prolog/machine/system_calls.rs
@@ -1594,6 +1594,12 @@ impl MachineState {
                        self.lifted_heap.truncate(lh_offset),
                    _ => self.fail = true
                },
+            &SystemClauseType::UnifyWithOccursCheck => {
+                let a1 = self[temp_v!(1)].clone();
+                let a2 = self[temp_v!(2)].clone();
+
+                self.unify_with_occurs_check(a1, a2);
+            },
            &SystemClauseType::UnwindStack => self.unwind_stack(),
            &SystemClauseType::WriteTerm => {
                let addr = self[temp_v!(1)].clone();