diff options
| author | Robin Templeton <robin@terpri.org> | 2014-08-04 23:08:12 -0400 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-04 16:24:57 +0200 |
| commit | 3d4c39a8aa264b72bbfeb2e3e3f2abcdc6d8c048 (patch) | |
| tree | 58539557805434d5a30eee844ca09895edc21cee | |
| parent | 412a0f22bc1c33fb7ebd4b95bb93d8aa6e359100 (diff) | |
defconst, defvar: proclaim special at compile-time
(Best-ability ChangeLog annotation added by Christopher Allan Webber.)
* module/language/elisp/compile-tree-il.scm (defconst, defvar): Use
proclaim-special!.
| -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 |