diff options
-rw-r--r-- | module/language/elisp/boot.el | 8 |
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)) |