fix attributed variables dealing with NeckCut on return

2019-02-12 08:38:46 -07:00
parent e36485533d
commit 06021e2373
4 changed files with 43 additions and 25 deletions
--- a/src/prolog/machine/attributed_variables.rs
+++ b/src/prolog/machine/attributed_variables.rs
@@ -29,7 +29,7 @@ impl MachineState {
    pub(super) fn push_attr_var_binding(&mut self, h: usize, addr: Addr)
    {
        if self.attr_var_init.bindings.is_empty() {
-            self.attr_var_init.cp = self.p.local() + 1;
+            self.attr_var_init.cp = self.p.local();
            self.p = CodePtr::VerifyAttrInterrupt(self.attr_var_init.verify_attrs_loc);
        }