dereference first argument of (is)/2

2021-12-11 23:36:19 -07:00
parent 39efc12dc8
commit 708c3bc3ce
1 changed files with 1 additions and 1 deletions
--- 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 {