Enable clojure.core-style extra args for state update.

nilern · Sep 10, 2020 · 13b07f9 · 13b07f9
1 parent 4635843
commit 13b07f9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fell/state.cljc b/src/fell/state.cljc
@@ -21,7 +21,7 @@
   (let [get (request-eff [label (Get.)])]
     (letfn [(set [value*] (request-eff [label (Set. value*)]))
 
-            (update [f] (-flat-map get (fn [s] (set (f s)))))
+            (update [f & args] (-flat-map get (fn [s] (set (apply f s args)))))
 
             (resume [^Pair suspension] (run (.-snd suspension) (.-fst suspension)))