diff options
Diffstat (limited to 'lang/elisp/primitives/symprop.scm')
-rw-r--r-- | lang/elisp/primitives/symprop.scm | 12 |
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) |