diff options
author | Robin Templeton <robin@terpri.org> | 2014-08-04 23:08:12 -0400 |
---|---|---|
committer | Christine Lemmer-Webber <cwebber@dustycloud.org> | 2021-10-19 18:10:04 -0400 |
commit | c8f94d3917efa9518525e2bccca2639ba57bc341 (patch) | |
tree | 4e231dada838920e0e0336a462aadc143bf2c01d | |
parent | de52c1b0a1e5823af31ce2ee6fbd7eee04f31a5b (diff) | |
download | guile-c8f94d3917efa9518525e2bccca2639ba57bc341.tar.gz |
defconst, defvar: proclaim special at compile-time
(Best-ability ChangeLog annotation added by Christine Lemmer-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 731b6e576..4304fba48 100644 --- a/module/language/elisp/compile-tree-il.scm +++ b/module/language/elisp/compile-tree-il.scm @@ -482,6 +482,7 @@ (defspecial defconst (loc args) (pmatch args ((,sym ,value . ,doc) + (proclaim-special! sym) (make-seq loc (make-call loc @@ -495,12 +496,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 |