1 |
(define-module (lang elisp primitives features) |
(define-module (lang elisp primitives features) |
2 |
#:use-module (lang elisp internals fset) |
#:use-module (lang elisp internals fset) |
3 |
#:use-module (lang elisp internals load) |
#:use-module (lang elisp internals load) |
4 |
|
#:use-module (lang elisp internals null) |
5 |
#:use-module (ice-9 optargs)) |
#:use-module (ice-9 optargs)) |
6 |
|
|
7 |
(define-public features '()) |
(define-public features '()) |
13 |
|
|
14 |
(fset 'featurep |
(fset 'featurep |
15 |
(lambda (feature) |
(lambda (feature) |
16 |
(memq feature features))) |
(->nil (memq feature features)))) |
17 |
|
|
18 |
(fset 'require |
(fset 'require |
19 |
(lambda* (feature #:optional file-name noerror) |
(lambda* (feature #:optional file-name noerror) |