From: Mark Thom <markjordanthom@gmail.com>
Date: Fri, 12 Jun 2020 04:28:05 +0000 (-0600)
Subject: add missing ! in int_pow (#580)
X-Git-Tag: v0.8.127~41
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=5ffb4597b376063374f8cdf0d69854a60eeb933b;p=scryer-prolog.git

add missing ! in int_pow (#580)
---

diff --git a/src/prolog/machine/arithmetic_ops.rs b/src/prolog/machine/arithmetic_ops.rs
index 45aecb9b..ad657828 100644
--- a/src/prolog/machine/arithmetic_ops.rs
+++ b/src/prolog/machine/arithmetic_ops.rs
@@ -472,7 +472,7 @@ impl MachineState {
                 }
             }
             (Number::Fixnum(n1), Number::Integer(n2)) => {
-                if (n1 == 1 || n1 == 0 || n1 == -1) && &*n2 < &0 {
+                if !(n1 == 1 || n1 == 0 || n1 == -1) && &*n2 < &0 {
                     let n = Number::from(n1);
                     let stub = MachineError::functor_stub(clause_name!("^"), 2);