From 708c3bc3ce6d2498d0f2797bfd3f9c0412123d44 Mon Sep 17 00:00:00 2001
From: Mark Thom <markjordanthom@gmail.com>
Date: Sat, 11 Dec 2021 23:36:19 -0700
Subject: [PATCH] dereference first argument of (is)/2

---
 src/machine/machine_state.rs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/machine/machine_state.rs b/src/machine/machine_state.rs
index b09d0503..58336338 100644
--- a/src/machine/machine_state.rs
+++ b/src/machine/machine_state.rs
@@ -597,7 +597,7 @@ pub trait CallPolicy: Any + fmt::Debug {
                 return_from_clause!(machine_st.last_call, machine_st)
             }
             &BuiltInClauseType::Is(r, ref at) => {
-                let n1 = machine_st[r];
+                let n1 = machine_st.store(machine_st.deref(machine_st[r]));
                 let n2 = machine_st.get_number(at)?;
 
                 match n2 {
-- 
2.54.0