summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/language/elisp/boot.el8
1 files changed, 3 insertions, 5 deletions
diff --git a/module/language/elisp/boot.el b/module/language/elisp/boot.el
index bec32b545..1ea86397f 100644
--- a/module/language/elisp/boot.el
+++ b/module/language/elisp/boot.el
@@ -237,16 +237,14 @@
(null (funcall (@ (guile) integer?) object)))))
(defun integerp (object)
- (and (funcall (@ (guile) exact?) object)
- (funcall (@ (guile) integer?) object)))
+ (and (funcall (@ (guile) integer?) object)
+ (funcall (@ (guile) exact?) object)))
(defun numberp (object)
(funcall (@ (guile) real?) object))
(defun wholenump (object)
- (and (funcall (@ (guile) exact?) object)
- (funcall (@ (guile) integer?) object)
- (>= object 0)))
+ (and (integerp object) (>= object 0)))
(defun zerop (object)
(= object 0))