simplify detecting undefined goal_ and term_expansion

2022-06-07 21:45:26 -06:00
parent 3d6fbabc86
commit a68394b6f2
4 changed files with 50 additions and 14 deletions
--- a/src/machine/dispatch.rs
+++ b/src/machine/dispatch.rs
@@ -4851,6 +4851,14 @@ impl Machine {
                    try_or_throw!(self.machine_st, self.add_non_counted_backtracking());
                    self.machine_st.p = self.machine_st.cp;
                }
+                &Instruction::CallPredicateDefined(_) => {
+                    self.machine_st.fail = !self.predicate_defined();
+                    self.machine_st.p += 1;
+                }
+                &Instruction::ExecutePredicateDefined(_) => {
+                    self.machine_st.fail = !self.predicate_defined();
+                    self.machine_st.p = self.machine_st.cp;
+                }
            }
        }