push of preliminary delimited continuations library cont.pl (#136)

2019-12-20 22:27:49 -07:00
parent 4ef8ab6e76
commit 3bf1cbbe6c
13 changed files with 422 additions and 56 deletions
--- a/src/prolog/machine/machine_state_impl.rs
+++ b/src/prolog/machine/machine_state_impl.rs
@@ -3337,7 +3337,7 @@ impl MachineState {
            &CutInstruction::GetLevel(r) => {
                let b0 = self.b0;

-                self[r] = Addr::Con(Constant::Usize(b0));
+                self[r] = Addr::Con(Constant::CutPoint(b0));
                self.p += 1;
            }
            &CutInstruction::GetLevelAndUnify(r) => {