diff options
| author | Jay Belanger | 2007-11-27 04:05:56 +0000 |
|---|---|---|
| committer | Jay Belanger | 2007-11-27 04:05:56 +0000 |
| commit | 84309b3b0133f3bf87e81dfc7d736630f3734842 (patch) | |
| tree | 33981705e3e4ed882e102057254ec694340aa5fc | |
| parent | 41f4eebc9971dac96110ef128159f9557de91687 (diff) | |
| download | emacs-84309b3b0133f3bf87e81dfc7d736630f3734842.tar.gz emacs-84309b3b0133f3bf87e81dfc7d736630f3734842.zip | |
(math-zerop, math-negp, math-looks-negp)
(math-posp, math-compare, math-bignum, math-compare-bignum):
Declare as functions.
| -rw-r--r-- | lisp/calc/calc-macs.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/calc/calc-macs.el b/lisp/calc/calc-macs.el index 27001b43f36..8e939cdde7b 100644 --- a/lisp/calc/calc-macs.el +++ b/lisp/calc/calc-macs.el | |||
| @@ -27,6 +27,16 @@ | |||
| 27 | 27 | ||
| 28 | ;;; Code: | 28 | ;;; Code: |
| 29 | 29 | ||
| 30 | ;; Declare functions which are defined elsewhere. | ||
| 31 | (declare-function math-zerop "calc-misc" (a)) | ||
| 32 | (declare-function math-negp "calc-misc" (a)) | ||
| 33 | (declare-function math-looks-negp "calc-misc" (a)) | ||
| 34 | (declare-function math-posp "calc-misc" (a)) | ||
| 35 | (declare-function math-compare "calc-ext" (a b)) | ||
| 36 | (declare-function math-bignum "calc" (a)) | ||
| 37 | (declare-function math-compare-bignum "calc-ext" (a b)) | ||
| 38 | |||
| 39 | |||
| 30 | (defmacro calc-wrapper (&rest body) | 40 | (defmacro calc-wrapper (&rest body) |
| 31 | `(calc-do (function (lambda () | 41 | `(calc-do (function (lambda () |
| 32 | ,@body)))) | 42 | ,@body)))) |