diff options
| author | Glenn Morris | 2008-04-27 01:20:10 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-04-27 01:20:10 +0000 |
| commit | 64e96f570bec888a2fe155e3b9820b7758a08db9 (patch) | |
| tree | 9183f860dcbbeb6f88fddf721996b1bd2505be6a | |
| parent | 212df36327ce8aa60a94b118259183315f8900d3 (diff) | |
| download | emacs-64e96f570bec888a2fe155e3b9820b7758a08db9.tar.gz emacs-64e96f570bec888a2fe155e3b9820b7758a08db9.zip | |
(calculator-expt): Replace cl function `oddp'.
| -rw-r--r-- | lisp/calculator.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calculator.el b/lisp/calculator.el index d5639298dba..be2fba355d8 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | 5 | ||
| 6 | ;; Author: Eli Barzilay <eli@barzilay.org> | 6 | ;; Author: Eli Barzilay <eli@barzilay.org> |
| 7 | ;; Keywords: tools, convenience | 7 | ;; Keywords: tools, convenience |
| 8 | ;; Time-stamp: <2007-08-31 03:00:11 ttn> | 8 | ;; Time-stamp: <Sat 26-Apr-2008 18:18:44 gm on grasmoor> |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| 11 | 11 | ||
| @@ -1806,7 +1806,7 @@ To use this, apply a binary operator (evaluate it), then call this." | |||
| 1806 | ;; The range errors come from large integer y. | 1806 | ;; The range errors come from large integer y. |
| 1807 | ((< y 0.0) | 1807 | ((< y 0.0) |
| 1808 | 0.0) | 1808 | 0.0) |
| 1809 | ((oddp (truncate y)) | 1809 | ((not (zerop (% (truncate y) 2))) |
| 1810 | ;; If y is odd | 1810 | ;; If y is odd |
| 1811 | -1.0e+INF) | 1811 | -1.0e+INF) |
| 1812 | (t | 1812 | (t |