From: Robin Templeton <robin@terpri.org>
Date: Tue, 24 Jun 2014 04:10:10 +0000 (-0400)
Subject: defvar affects default value
X-Git-Url: http://git.hcoop.net/bpt/guile.git/commitdiff_plain/bd0f29177001eb9d5759225b801f1a4bb173308a

defvar affects default value
---

diff --git a/module/language/elisp/compile-tree-il.scm b/module/language/elisp/compile-tree-il.scm
index 850edee3b..1e093344c 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))))