fix string incompleteness (#1828)

diff --git a/src/machine/partial_string.rs b/src/machine/partial_string.rs
index fce472041ce6c19c37d78d8d9100a379fb6135ea..812941fc30fb967718e13e0e4d04a359a79b3d71 100644 (file)
--- 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];
                     }
                     _ => {