diff options
| -rw-r--r-- | module/language/elisp/compile-tree-il.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/module/language/elisp/compile-tree-il.scm b/module/language/elisp/compile-tree-il.scm index 84bbeab53..8a78d3970 100644 --- a/module/language/elisp/compile-tree-il.scm +++ b/module/language/elisp/compile-tree-il.scm @@ -481,6 +481,7 @@ (defspecial defconst (loc args) (pmatch args ((,sym ,value . ,doc) + (proclaim-special! sym) (make-seq loc (make-call loc @@ -494,12 +495,14 @@ (defspecial defvar (loc args) (pmatch args ((,sym) + (proclaim-special! sym) (make-seq loc (make-call loc (make-module-ref loc runtime 'proclaim-special! #t) (list (make-const loc sym))) (make-const loc sym))) ((,sym ,value . ,doc) + (proclaim-special! sym) (make-seq loc (make-call loc |