fix string incompleteness (#1828)

2023-06-24 14:12:04 -06:00
parent 59766e2db4
commit d9829a3606
1 changed files with 1 additions and 1 deletions
--- a/src/machine/partial_string.rs
+++ b/src/machine/partial_string.rs
@@ -181,7 +181,7 @@ impl<'a> HeapPStrIter<'a> {
                self.brent_st.hare = result.focus;
            } else {
                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];
                    }
                    _ => {