       :else (let [s (print-str x)]
               (when *position*
                 (swap! *position*
-                  (fn [{:keys [line col]}]
-                    {:line line :col (+ col (count s))})))
+                  (fn [{:keys [gline gcol]}]
+                    {:gline gline :gcol (+ gcol (count s))})))
               (print s))))
   nil)
 

  (println)
  (when *position*
    (swap! *position*
      (fn [{:keys [line col]}]
        {:line (inc line) :col 0})))
  nil)

(defmulti emit-constant class)

      (binding [*out* out
                *cljs-ns* 'cljs.user
                *cljs-file* (.getPath ^java.io.File src)
                *position* (atom {:gline 0 :gcol 0})]
        (loop [forms (forms-seq src)
               ns-name nil
               deps nil]
