   (if (eval-map code)
     (eval-map code)
     (do (debug "eval-map didn't match:" code)
-        (throw code))))
+        (fn [old _] old))))
 
 (defn find-fn [name]
   (first (filter (fn [[_ fn-name]]

  (let [causal-order (get-in @stage [user repo :state :causal-order])
        master-head (first (get-in @stage [user repo :state :branches "master"]))]
    (-> (<!? (commit-value store mapped-eval causal-order master-head))
        deref
        (get-in [:data])
        count))


  (use 'clojure.stacktrace)


  (def user "kordano@topiq.es")

  (def repo #uuid "30b48786-9a2c-4f5a-ae82-079a990422b0")


  (<!? (s/subscribe-repos! stage {user {repo #{"master"}}}))
