From: Mark Thom <markjordanthom@gmail.com>
Date: Wed, 3 Mar 2021 19:16:47 +0000 (-0700)
Subject: has_tail must be false for use as a filename from open/{3,4}
X-Git-Tag: v0.9.0~140
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=5a3ee3a46e25f71d7f0f5f075e0a424b9ca3cd64;p=scryer-prolog.git

has_tail must be false for use as a filename from open/{3,4}
---

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index 1ffa227e..af8e3e7e 100644
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -3111,7 +3111,7 @@ impl MachineState {
                         self.stream_from_file_spec(atom, indices, &options)?
                     }
                     Addr::PStrLocation(h, n) => match &self.heap[h] {
-                        &HeapCellValue::PartialString(_, true) => {
+                        &HeapCellValue::PartialString(_, _has_tail @ false) => {
                             let mut heap_pstr_iter = self.heap_pstr_iter(Addr::PStrLocation(h, n));
 
                             let file_spec = clause_name!(heap_pstr_iter.to_string(), self.atom_tbl);