      (seq? x) (apply emits x)
      (fn? x)  (x)
      :else (let [s (print-str x)]
-             (swap! *cljs-gen-col* (fn [col] (+ col (count s))))
+             (when *cljs-source-map*
+               (swap! *cljs-gen-col* (fn [col] (+ col (count s)))))
              (print s))))
   nil)
 

                   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]
