From: jakub-w <jakub-w@riseup.net>
Date: Thu, 16 Apr 2020 20:48:03 +0000 (-0700)
Subject: Fix a typo in calculator.el
X-Git-Tag: emacs-27.0.91~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3876a605694b7f3053268e1760b3052f5ac451f4;p=emacs.git

Fix a typo in calculator.el

* lisp/calculator.el (calculator-expt): Overflowing exponentiation
caused the function to return -1.0e+INF if the base was an odd,
negative number, no matter what the exponent was.
Copyright-paperwork-exempt: yes
---

diff --git a/lisp/calculator.el b/lisp/calculator.el
index c1af26ffcc0..6996990814d 100644
--- a/lisp/calculator.el
+++ b/lisp/calculator.el
@@ -1622,7 +1622,7 @@ To use this, apply a binary operator (evaluate it), then call this."
     (overflow-error
      ;; X and Y must be integers, as expt silently returns floating-point
      ;; infinity on floating-point overflow.
-     (if (or (natnump x) (zerop (logand x 1)))
+     (if (or (natnump x) (zerop (logand y 1)))
 	 1.0e+INF
        -1.0e+INF))))