[Guile-commits] 12/36: defvar affects default value

[Christopher Allan Webber]

cwebber pushed a commit to branch wip-elisp
in repository guile.

commit efc4163b5607870f2622e68254aa7e1b7502899d
Author: Robin Templeton <address@hidden>
Date:   Tue Jun 24 00:10:10 2014 -0400

    defvar affects default value
    
    (Best-ability ChangeLog annotation added by Christopher Allan Webber.)
    
    * module/language/elisp/compile-tree-il.scm (defvar): Refactor 
appropriately.
---
 module/language/elisp/compile-tree-il.scm |    7 +++++--
 1 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/module/language/elisp/compile-tree-il.scm 
b/module/language/elisp/compile-tree-il.scm
index 850edee..1e09334 100644
--- a/module/language/elisp/compile-tree-il.scm
+++ b/module/language/elisp/compile-tree-il.scm
@@ -507,10 +507,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))))