diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-04-27 01:20:10 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-04-27 01:20:10 +0000 |
| commit | 64e96f570bec888a2fe155e3b9820b7758a08db9 (patch) | |
| tree | 9183f860dcbbeb6f88fddf721996b1bd2505be6a /lisp/calculator.el | |
| parent | 212df36327ce8aa60a94b118259183315f8900d3 (diff) | |
| download | emacs-64e96f570bec888a2fe155e3b9820b7758a08db9.tar.gz | |
(calculator-expt): Replace cl function `oddp'.
Diffstat (limited to 'lisp/calculator.el')
| -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 @@ ;; Author: Eli Barzilay <eli@barzilay.org> ;; Keywords: tools, convenience -;; Time-stamp: <2007-08-31 03:00:11 ttn> +;; Time-stamp: <Sat 26-Apr-2008 18:18:44 gm on grasmoor> ;; This file is part of GNU Emacs. @@ -1806,7 +1806,7 @@ To use this, apply a binary operator (evaluate it), then call this." ;; The range errors come from large integer y. ((< y 0.0) 0.0) - ((oddp (truncate y)) + ((not (zerop (% (truncate y) 2))) ;; If y is odd -1.0e+INF) (t |