From: Mark Thom <markjordanthom@gmail.com>
Date: Mon, 17 Jan 2022 07:00:23 +0000 (-0700)
Subject: dereference second argument of '/2
X-Git-Tag: v0.9.0^2~61
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=c6400550e117e59f7383717195ec72fd1f095937;p=scryer-prolog.git

dereference second argument of '/2
---

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index c4d4d4d6..98130bc2 100644
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -1155,7 +1155,9 @@ impl Machine {
                 return Ok(());
             }
 
-            if let Some(next) = self.machine_st.value_to_str_like(self.machine_st.registers[2]) {
+            let target = self.machine_st.store(self.machine_st.deref(self.machine_st.registers[2]));
+
+            if let Some(next) = self.machine_st.value_to_str_like(target) {
                 if env::set_current_dir(std::path::Path::new(next.as_str())).is_ok() {
                     return Ok(());
                 }