    (swap! visited assoc obj out)
    out)
 
-  ([visited obj] (visit! visited obj true)))
+  ([visited obj] (visit! visited obj "Circular Ref")))
 
+
+;;***************************************************************************
+;; ->js
+;;***************************************************************************
+(def ->js)
 (defn seq->js
   "Converts a seq-like value into a JS Array."
   ([obj flat visited]

(ns overcode.introvert)

(def ->js)

(defn array-append [arr seq]
  "Inserts all elements from a Seq into an existing JS array."

         was-visited)
       (let [out (js-obj)]
         (visit! visited obj out)
         (dorun
          (map
           #(let [key (->js (first %)  flat visited)
                  val (->js (second %) flat visited)]
