         info (if (= (namespace var-name) "js")
                (name var-name)
                info)]
-    (when (and (:line env) (symbol? var-name))
-      (let [{:keys [line column]} env]
-        (swap! *cljs-source-map*
-          (fn [m]
-            (let [minfo {:gcol  @*cljs-gen-col*
-                         :gline @*cljs-gen-line*
-                         :name  var-name}]
-              (update-in m [line]
-                (fnil (fn [m]
-                        (update-in m [(or column 0)]
-                          (fnil (fn [v] (conj v minfo)) [])))
-                  (sorted-map))))))))
+    (when *cljs-source-map*
+      (when (and (:line env) (symbol? var-name))
+        (let [{:keys [line column]} env]
+          (swap! *cljs-source-map*
+            (fn [m]
+              (let [minfo {:gcol  @*cljs-gen-col*
+                           :gline @*cljs-gen-line*
+                           :name  var-name}]
+                (update-in m [line]
+                  (fnil (fn [m]
+                          (update-in m [(or column 0)]
+                            (fnil (fn [v] (conj v minfo)) [])))
+                    (sorted-map)))))))))
     (when-not (= :statement (:context env))
       (emit-wrap env (emits (munge info))))))
 

                   ana/*cljs-file* (.getPath ^java.io.File src)
                   *data-readers* tags/*cljs-data-readers*
                   *emitted-provides* (atom #{})
                   *cljs-source-map* (atom (sorted-map))
                   *cljs-gen-line* (atom 0)
                   *cljs-gen-col*  (atom 0)]
           (loop [forms (forms-seq src)
                  ns-name nil
                  deps nil]

(defn emitln [& xs]
  (apply emits xs)
  (println)
  (when *cljs-gen-line*
    (swap! *cljs-gen-line* inc))
  (when *cljs-gen-col*
    (reset! *cljs-gen-col* 0))
  nil)

(defn ^String emit-str [expr]
