mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-17 19:52:26 +02:00
Code Activity

defvar affects default value

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

* module/language/elisp/compile-tree-il.scm (defvar): Refactor appropriately.
This commit is contained in:
Robin Templeton 2014-06-24 00:10:10 -04:00 • committed by Christine Lemmer-Webber
parent 534211afac
commit c25539c9dc
No known key found for this signature in database
GPG key ID: 4BC025925FF8F4D3
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -511,10 +511,13 @@
(make-conditional
loc
(make-call loc
(make-module-ref loc runtime 'symbol-bound? #t)
(make-module-ref loc runtime 'symbol-default-bound? #t)
(list (make-const loc sym)))
(make-void loc)
(set-variable! loc sym (compile-expr value)))
(make-call loc
(make-module-ref loc runtime 'set-symbol-default-value! #t)
(list (make-const loc sym)
(compile-expr value))))
(make-const loc sym))))
(else (report-error loc "Bad defvar" args))))