1 |
(define-module (lang elisp internals fset) |
(define-module (lang elisp internals fset) |
|
#:use-module (lang elisp internals signal) |
|
2 |
#:use-module (lang elisp internals evaluation) |
#:use-module (lang elisp internals evaluation) |
3 |
|
#:use-module (lang elisp internals lambda) |
4 |
|
#:use-module (lang elisp internals signal) |
5 |
#:export (fset |
#:export (fset |
6 |
fref |
fref |
7 |
fref/error-if-void |
fref/error-if-void |
106 |
function) |
function) |
107 |
((and (pair? function) |
((and (pair? function) |
108 |
(eq? (car function) 'lambda)) |
(eq? (car function) 'lambda)) |
109 |
(eval function the-elisp-module)) |
(eval (transform-lambda/interactive function '<elisp-lambda>) |
110 |
|
the-root-module)) |
111 |
(else |
(else |
112 |
(signal 'invalid-function (list function)))) |
(signal 'invalid-function (list function)))) |
113 |
args)) |
args)) |