implement less defaulty interface in cont.pl

2019-12-23 12:19:18 -07:00
parent dded56af78
commit 85e37a9977
3 changed files with 15 additions and 6 deletions
--- a/src/prolog/machine/system_calls.rs
+++ b/src/prolog/machine/system_calls.rs
@@ -2197,8 +2197,12 @@ impl MachineState {
                self.reset_block(addr);
            }
            &SystemClauseType::ResetContinuationMarker => {
-                self[temp_v!(3)] = Addr::Con(Constant::Integer(Integer::from(0)));
-                self[temp_v!(4)] = Addr::Con(Constant::Integer(Integer::from(0)));
+                self[temp_v!(3)] = Addr::Con(Constant::Atom(clause_name!("none"), None));
+
+                let h = self.heap.h;
+                self.heap.push(HeapCellValue::Addr(Addr::HeapCell(h)));
+
+                self[temp_v!(4)] = Addr::HeapCell(h);
            }
            &SystemClauseType::SetBall =>
                self.set_ball(),