This commit is contained in:
Mark Thom
2019-12-02 19:38:15 -07:00

View File

@@ -51,13 +51,16 @@ impl<T: CopierTarget> CopyTermState<T> {
} }
fn copied_list(&mut self, addr: usize) -> bool { fn copied_list(&mut self, addr: usize) -> bool {
if let HeapCellValue::Addr(Addr::Lis(addr)) = self.target[addr].clone() { match self.target[addr].clone() {
if addr >= self.old_h { HeapCellValue::Addr(Addr::Lis(addr)) | HeapCellValue::Addr(Addr::HeapCell(addr)) => {
*self.value_at_scan() = HeapCellValue::Addr(Addr::Lis(addr)); if addr >= self.old_h {
self.scan += 1; *self.value_at_scan() = HeapCellValue::Addr(Addr::Lis(addr));
return true; self.scan += 1;
return true;
}
} }
} _ => {}
};
false false
} }