                                  (rest c)))
         :default c))
 
+(defn eval-parsed-code
+  [pjs state]
+  (eval-parsed-cljs-code (js->clj pjs)
+                         state))
+
 (defn tokenize-string
   [p]
   (->> p

       first
       hick/as-hiccup
       (walk/postwalk (fn [t] (cond (string? t) (tokenize-string t)
                                    (like-html-vec? t) (update-in t [1] grab-om-attrs [:om-if :om-repeat])
                                    :else t)))
       (walk/postwalk flatten-out)))


  [s]
  (.parse js/parser s))


(defn eval-parsed-cljs-code
  [c state]
