dereference variables when looking for string terminators

diff --git a/src/types.rs b/src/types.rs
index 16805981d6a12fe54eb8dbaeabb6e5b01c94b36e..b4278f4144dff3fdfa45679c60621f9aaa6a8a5a 100644 (file)
--- a/src/types.rs
+++ b/src/types.rs
@@ -344,6 +344,8 @@ impl HeapCellValue {
 
     #[inline]
     pub fn is_string_terminator(mut self, heap: &[HeapCellValue]) -> bool {
+        use crate::machine::heap::*;
+
         loop {
             return read_heap_cell!(self,
                 (HeapCellValueTag::Atom, (name, arity)) => {
@@ -356,6 +358,16 @@ impl HeapCellValue {
                     self = heap[h];
                     continue;
                 }
+                (HeapCellValueTag::AttrVar | HeapCellValueTag::Var, h) => {
+                    let cell = heap_bound_store(heap, heap_bound_deref(heap, heap[h]));
+
+                    if cell.is_var() {
+                        return false;
+                    }
+
+                    self = cell;
+                    continue;
+                }
                 (HeapCellValueTag::PStrOffset, pstr_offset) => {
                     heap[pstr_offset].get_tag() == HeapCellValueTag::CStr
                 }