 
 (defn emitln [& xs]
   (apply emits xs)
-  ;; Prints column-aligned line number comments; good test of *position*.
-  ;(when *position*
-  ;  (let [[line column] @*position*]
-  ;    (print (apply str (concat (repeat (- 120 column) \space) ["// " (inc line)])))))
   (println)
-  (when *position*
-    (swap! *position*
-      (fn [{:keys [gline gcol]}]
-        {:gline (inc gline) :gcol 0})))
+  (when *cljs-mappings*
+    (swap! *cljs-mappings*
+      (fn [lines]
+        (conj lines []))))
   nil)
 
 (defmulti emit-constant class)

(defn emits [& xs]
  (doseq [x xs]
    (cond
      (nil? x) nil
      (map? x) (emit x)
      (seq? x) (apply emits x)
      (fn? x)  (x)
      :else (let [s (print-str x)]
              (when *position*
                (swap! *position*
                  (fn [{:keys [gline gcol]}]
                    {:gline gline :gcol (+ gcol (count s))})))
              (print s))))
  nil)

(defn ^String emit-str [expr]

(def ^:dynamic *cljs-warn-fn-arity* true)
(def ^:dynamic *unchecked-if* (atom false))
(def ^:dynamic *cljs-static-fns* false)

(def ^:dynamic *cljs-mappings* nil)
(def ^:dynamic *cljs-gen-col* nil)

(defmacro ^:private debug-prn
  [& args]
