summaryrefslogtreecommitdiff
path: root/lang/elisp/primitives/symprop.scm
diff options
context:
space:
mode:
Diffstat (limited to 'lang/elisp/primitives/symprop.scm')
-rw-r--r--lang/elisp/primitives/symprop.scm12
1 files changed, 7 insertions, 5 deletions
diff --git a/lang/elisp/primitives/symprop.scm b/lang/elisp/primitives/symprop.scm
index 4ca169226..a520a4b81 100644
--- a/lang/elisp/primitives/symprop.scm
+++ b/lang/elisp/primitives/symprop.scm
@@ -1,7 +1,8 @@
(define-module (lang elisp primitives symprop)
- #:use-module (lang elisp internals set)
- #:use-module (lang elisp internals fset)
#:use-module (lang elisp internals evaluation)
+ #:use-module (lang elisp internals fset)
+ #:use-module (lang elisp internals null)
+ #:use-module (lang elisp internals set)
#:use-module (ice-9 optargs))
;;; {Elisp Exports}
@@ -16,7 +17,7 @@
(fset 'boundp
(lambda (sym)
- (module-defined? the-elisp-module sym)))
+ (->nil (module-defined? the-elisp-module sym))))
(fset 'default-boundp 'boundp)
@@ -29,10 +30,11 @@
(fset 'symbolp
(lambda (object)
(or (symbol? object)
- (keyword? object))))
+ (keyword? object)
+ %nil)))
(fset 'local-variable-if-set-p
(lambda* (variable #:optional buffer)
- #f))
+ %nil))
(fset 'symbol-name symbol->string)