1 (define-module (lang elisp primitives features)
2 #:use-module (lang elisp internals fset)
3 #:use-module (lang elisp internals load)
4 #:use-module (lang elisp internals null)
5 #:use-module (ice-9 optargs))
7 (define-public features '())
11 (or (memq feature features)
12 (set! features (cons feature features)))))
16 (->nil (memq feature features))))
19 (lambda* (feature #:optional file-name noerror)
20 (or (memq feature features)
22 (symbol->string feature))