From: Mark <markjordanthom@gmail.com>
Date: Wed, 12 Jul 2023 20:24:20 +0000 (-0600)
Subject: remove unsafe unwrap in put_char (#1881)
X-Git-Tag: v0.9.2~65
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=1791bd862645a3d0fa0bac00a847d43089beac79;p=scryer-prolog.git

remove unsafe unwrap in put_char (#1881)
---

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index 88cdde16..111569ec 100644
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -3102,9 +3102,10 @@ impl Machine {
         } else {
             read_heap_cell!(addr,
                 (HeapCellValueTag::Atom, (name, _arity)) => {
-                    let c = name.as_char().unwrap();
-                    write!(&mut stream, "{}", c).unwrap();
-                    return Ok(());
+                    if let Some(c) = name.as_char() {
+                        write!(&mut stream, "{}", c).unwrap();
+                        return Ok(());
+                    }
                 }
                 (HeapCellValueTag::Char, c) => {
                     write!(&mut stream, "{}", c).unwrap();