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 b4857b59a8e73fe8f8efb3858a66e169b0109598..0f02d1413a65c454d3ce11109371ea498b647d58 100644 (file)
--- 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) {