correct (\+)/1 (#2141)

2023-10-31 23:58:59 -06:00
parent 8f06ef965a
commit dfd9e43405
6 changed files with 88 additions and 18 deletions
--- a/src/forms.rs
+++ b/src/forms.rs
@@ -202,7 +202,7 @@ pub enum QueryTerm {
    // register, clause type, subterms, clause call policy.
    Clause(Cell<RegType>, ClauseType, Vec<Term>, CallPolicy),
    Fail,
-    LocalCut(usize),  // var_num
+    LocalCut { var_num: usize, cut_prev: bool },  // var_num
    GlobalCut(usize), // var_num
    GetCutPoint { var_num: usize, prev_b: bool },
    GetLevel(usize), // var_num