From: Markus Triska <triska@metalevel.at>
Date: Thu, 6 Aug 2020 18:12:57 +0000 (+0200)
Subject: use self.deref(...) (see #653)
X-Git-Tag: v0.9.0~174^2~15^2~1^2~2
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=a16f84560dd9fd138dc13e298d0494ee26944f4d;p=scryer-prolog.git

use self.deref(...) (see #653)
---

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index fa6ea029..c91b63a7 100644
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -5447,8 +5447,10 @@ impl MachineState {
 
                 let algorithm = self.atom_argument_to_string(5);
 
+                let length = self.store(self.deref(self[temp_v!(6)]));
+
                 let length =
-                    match Number::try_from((self[temp_v!(6)], &self.heap)) {
+                    match Number::try_from((length, &self.heap)) {
                         Ok(Number::Fixnum(n)) => {
                             usize::try_from(n).unwrap()
                         }
@@ -5596,8 +5598,10 @@ impl MachineState {
                                   _ => { unreachable!() }
                                };
 
+                let scalar = self.store(self.deref(self[temp_v!(2)]));
+
                 let scalar =
-                    match Number::try_from((self[temp_v!(2)], &self.heap)) {
+                    match Number::try_from((scalar, &self.heap)) {
                         Ok(Number::Fixnum(n)) => {
                             Integer::from(n)
                         }