                                                                                      k
                                                                                      (mapcat second)
                                                                                      (apply str)
-                                                                                     parse-code
+                                                                                     mem-parse-code
                                                                                      last)
                                                                                 state))
                                                             (dissoc k))))

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


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

                           (-> repx
                               first
                               second
                               mem-parse-code
                               (eval-parsed-code state))))]
   [has-listeners? (fn [[h onkeys]]
                     (update-in h [1]
