From: Mark Thom <markjordanthom@gmail.com>
Date: Sun, 10 May 2020 20:33:56 +0000 (-0600)
Subject: deref addr's in list of atom_codes (#484)
X-Git-Tag: v0.8.123~46
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=d170c807e3d735bc983b1f4beced2c7571310f88;p=scryer-prolog.git

deref addr's in list of atom_codes (#484)
---

diff --git a/src/prolog/machine/system_calls.rs b/src/prolog/machine/system_calls.rs
index b4857b59..0f02d141 100644
--- a/src/prolog/machine/system_calls.rs
+++ b/src/prolog/machine/system_calls.rs
@@ -960,6 +960,8 @@ impl MachineState {
                                 let mut chars = String::new();
 
                                 for addr in addrs {
+                                    let addr = self.store(self.deref(addr));
+
                                     match Number::try_from((addr, &self.heap)) {
                                         Ok(Number::Fixnum(n)) => {
                                             match u32::try_from(n) {