fix string incompleteness (#1828)

This commit is contained in:
Mark
2023-06-24 14:12:04 -06:00
parent 59766e2db4
commit d9829a3606

View File

@@ -181,7 +181,7 @@ impl<'a> HeapPStrIter<'a> {
self.brent_st.hare = result.focus; self.brent_st.hare = result.focus;
} else { } else {
read_heap_cell!(self.heap[result.focus], read_heap_cell!(self.heap[result.focus],
(HeapCellValueTag::Lis | HeapCellValueTag::Str) => { (HeapCellValueTag::Lis | HeapCellValueTag::Str | HeapCellValueTag::PStr) => {
self.focus = self.heap[self.brent_st.hare]; self.focus = self.heap[self.brent_st.hare];
} }
_ => { _ => {