mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

defconst, defvar: proclaim special at compile-time

Browse source 
(Best-ability ChangeLog annotation added by Christine Lemmer-Webber.)

* module/language/elisp/compile-tree-il.scm (defconst, defvar): Use
  proclaim-special!.
This commit is contained in:
Robin Templeton 2014-08-04 23:08:12 -04:00 • committed by Christine Lemmer-Webber
parent de52c1b0a1
commit c8f94d3917
No known key found for this signature in database
GPG key ID: 4BC025925FF8F4D3
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/elisp/compile-tree-il.scm
View file

@ -482,6 +482,7 @@
(defspecial defconst (loc args) (defspecial defconst (loc args)
(pmatch args (pmatch args
((,sym ,value . ,doc) ((,sym ,value . ,doc)
(proclaim-special! sym)
(make-seq (make-seq
loc loc
(make-call loc (make-call loc
@ -495,12 +496,14 @@
(defspecial defvar (loc args) (defspecial defvar (loc args)
(pmatch args (pmatch args
((,sym) ((,sym)
(proclaim-special! sym)
(make-seq loc (make-seq loc
(make-call loc (make-call loc
(make-module-ref loc runtime 'proclaim-special! #t) (make-module-ref loc runtime 'proclaim-special! #t)
(list (make-const loc sym))) (list (make-const loc sym)))
(make-const loc sym))) (make-const loc sym)))
((,sym ,value . ,doc) ((,sym ,value . ,doc)
(proclaim-special! sym)
(make-seq (make-seq
loc loc
(make-call loc (make-call loc