From: Mark Thom <markjordanthom@gmail.com>
Date: Fri, 14 Jan 2022 02:43:54 +0000 (-0700)
Subject: put_complete_string should push the empty list to the heap for empty strings (#1209)
X-Git-Tag: v0.9.0^2~67
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=bc5125b7192c7c1152fb18ac94393a67f296718f;p=scryer-prolog.git

put_complete_string should push the empty list to the heap for empty strings (#1209)
---

diff --git a/src/machine/heap.rs b/src/machine/heap.rs
index 6a5e14ef..a7317cc3 100644
--- a/src/machine/heap.rs
+++ b/src/machine/heap.rs
@@ -147,7 +147,9 @@ pub(crate) fn put_complete_string(
             }
         }
         None => {
-            empty_list_as_cell!()
+            let h = heap.len();
+            heap.push(empty_list_as_cell!());
+            heap_loc_as_cell!(h)
         }
     }
 }