Fix munging in export

clojure · Jun 4, 2012 · 2371c1c · 2371c1c
1 parent a212624
commit 2371c1c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/clj/cljs/compiler.clj b/src/clj/cljs/compiler.clj
@@ -454,13 +454,13 @@
 (defmethod emit :def
   [{:keys [name init env doc export]}]
   (if init
-    (do
+    (let [mname (munge name)]
       (emit-comment doc (:jsdoc init))
-      (emits (munge name))
+      (emits mname)
       (emits " = " init)
       (when-not (= :expr (:context env)) (emitln ";"))
       (when export
-        (emitln "goog.exportSymbol('" export "', " name ");")))
+        (emitln "goog.exportSymbol('" (munge export) "', " mname ");")))
     (emitln "void 0;")))
 
 (defn emit-apply-to