From: Mark Thom <markjordanthom@gmail.com>
Date: Tue, 29 Mar 2022 01:03:28 +0000 (-0600)
Subject: print closed stream handle as '$dropped_value' (#1376)
X-Git-Tag: v0.9.1~88
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=48960f1beb6c0e24cefa3412192707b7b81ed229;p=scryer-prolog.git

print closed stream handle as '$dropped_value' (#1376)
---

diff --git a/src/heap_print.rs b/src/heap_print.rs
index 08225225..86db4bee 100644
--- a/src/heap_print.rs
+++ b/src/heap_print.rs
@@ -1526,7 +1526,10 @@ impl<'a, Outputter: HCValueOutputter> HCPrinter<'a, Outputter> {
                         self.print_stream(stream, max_depth);
                     }
                     (ArenaHeaderTag::OssifiedOpDir, _op_dir) => {
-                        append_str!(self, "$ossified_op_dir");
+                        append_str!(self, "'$ossified_op_dir'");
+                    }
+                    (ArenaHeaderTag::Dropped, _value) => {
+                        append_str!(self, "'$dropped_value'");
                     }
                     _ => {
                     }
diff --git a/src/machine/streams.rs b/src/machine/streams.rs
index f305ae04..e569baf3 100644
--- a/src/machine/streams.rs
+++ b/src/machine/streams.rs
@@ -452,7 +452,9 @@ impl Stream {
             ArenaHeaderTag::StandardErrorStream => {
                 Stream::StandardError(TypedArenaPtr::new(ptr as *mut _))
             }
-            ArenaHeaderTag::NullStream => Stream::Null(StreamOptions::default()),
+            ArenaHeaderTag::Dropped | ArenaHeaderTag::NullStream => {
+                Stream::Null(StreamOptions::default())
+            }
             _ => unreachable!(),
         }
     }