 (defn emitln [& xs]
   (apply emits xs)
   (println)
-  (swap! *cljs-mappings*
-         (fn [lines]
-           (conj lines [])))
+  (swap! *cljs-gen-line* inc)
   (reset! *cljs-gen-col* 0)
   nil)
 

(defmethod emit :var
  [{:keys [info env] :as arg}]
  (let [n (:name info)
        n (if (symbol? n)
            (vary-meta n
              (fn [m]
                (merge m {:line (:line env)
                          :name (:name info)})))
            n)
        n (if (= (namespace n) "js")
            (name n)
            n)]
    (emit-wrap env (emits (munge n)))))

(defmethod emit :meta

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