diff options
Diffstat (limited to 'module/language/elisp/runtime.scm')
-rw-r--r-- | module/language/elisp/runtime.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/module/language/elisp/runtime.scm b/module/language/elisp/runtime.scm index dbe399e70..e4bd0ffb2 100644 --- a/module/language/elisp/runtime.scm +++ b/module/language/elisp/runtime.scm @@ -274,5 +274,7 @@ (syntax-case x () ((_ name args body ...) (with-syntax ((scheme-name (make-id #'name 'compile- #'name))) - #'(define scheme-name - (cons 'special-operator (lambda args body ...)))))))) + #'(begin + (define scheme-name + (cons 'special-operator (lambda args body ...))) + (set-symbol-function! 'name scheme-name))))))) |