weird closing over <-state with <-effect

[lilactown]

  (let [state (<-state {:log [{:foo ["bar" "baz"]
                               :bar {:baz 42}}]
                        :history []
                        :current {:foo ["bar" "baz"]
                                  :bar {:baz 42}}
                        :next {:coll nil
                               :k nil
                               :v nil}})
        tap-fn (fn [x]
                 (swap! state update :log conj x))]
    ;; add tap listener
    (<-effect (fn []
                (println "Adding tap")
                (add-tap tap-fn)
                (fn []
                  (printlin "removing tap")
                  (remove-tap tap-fn)))
              [state])

[lilactown]

This was due to not passing in [state] as a JS array.