summaryrefslogtreecommitdiff
path: root/module/language/elisp/runtime.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/elisp/runtime.scm')
-rw-r--r--module/language/elisp/runtime.scm6
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)))))))