From: bakaq <bakaq@bakaq.net>
Date: Tue, 14 Oct 2025 19:19:43 +0000 (-0300)
Subject: Fix marking of partial string tail in iteration
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=fdcd92db08fa4f72b6cb76e32b1aa8878364e730;p=scryer-prolog.git

Fix marking of partial string tail in iteration
---

diff --git a/src/heap_iter.rs b/src/heap_iter.rs
index 365d9ca3..ceefe4a9 100644
--- a/src/heap_iter.rs
+++ b/src/heap_iter.rs
@@ -118,8 +118,8 @@ impl<'a> EagerStackfulPreOrderHeapIter<'a> {
                 (HeapCellValueTag::PStrLoc, h) => {
                     let tail_idx = self.heap.scan_slice_to_str(h).tail_idx;
 
-                    self.heap[tail_idx].set_mark_bit(self.mark_phase);
                     self.iter_stack.push(self.heap[tail_idx]);
+                    self.heap[tail_idx].set_mark_bit(self.mark_phase);
                 }
                 _ => {
                 }