compare TypedArenaPtr<T> by value not pointer (#1362)

2022-03-22 00:55:44 -06:00
parent d916da9ba8
commit 067e2633af
4 changed files with 33 additions and 22 deletions
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -2876,7 +2876,7 @@ impl Machine {
        debug_assert_eq!(addr.get_tag(), HeapCellValueTag::Lis);

        let l = addr.get_value();
-        let tail = self.machine_st.store(self.machine_st.deref(heap_loc_as_cell!(l + 1)));
+        let tail = self.machine_st.store(self.machine_st.deref(self.machine_st.heap[l + 1]));

        let tail = if tail.is_var() {
            self.machine_st.heap[h] = heap_loc_as_cell!(h);