diff options
| -rw-r--r-- | lisp/calculator.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/calculator.el b/lisp/calculator.el index fab365d5f28..6c07ee2225d 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el | |||
| @@ -1620,7 +1620,9 @@ To use this, apply a binary operator (evaluate it), then call this." | |||
| 1620 | (condition-case nil | 1620 | (condition-case nil |
| 1621 | (expt x y) | 1621 | (expt x y) |
| 1622 | (overflow-error | 1622 | (overflow-error |
| 1623 | (if (or (natnump x) (cl-evenp y)) | 1623 | ;; X and Y must be integers, as expt silently returns floating-point |
| 1624 | ;; infinity on floating-point overflow. | ||
| 1625 | (if (or (natnump x) (zerop (logand x 1))) | ||
| 1624 | 1.0e+INF | 1626 | 1.0e+INF |
| 1625 | -1.0e+INF)))) | 1627 | -1.0e+INF)))) |
| 1626 | 1628 | ||