monad: zap a bug with top-level put-state in monad runners

active-group · May 8, 2024 · 34ce0a5 · 34ce0a5
1 parent 0c05d97
commit 34ce0a5
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/src/active/clojure/monad.cljc b/src/active/clojure/monad.cljc
@@ -426,7 +426,7 @@
                [state state]
 
                (put-state!? m)
-               [nil state]
+               [nil (put-state-state m)]
 
                :else
                (let [res (run-command run env state m)]
@@ -558,7 +558,7 @@
                [state state]
 
                (put-state!? m)
-               [nil state]
+               [nil (put-state-state m)]
 
                :else
                (let [res (run-command run env state m)]

diff --git a/test/active/clojure/monad_test.cljc b/test/active/clojure/monad_test.cljc
@@ -307,6 +307,14 @@
                                                    (put-state! {:x 'bar})
                                                    (return x))))))
 
+(deftest put-state-test
+  (is (= [nil 42]
+         (run-free-reader-state-exception (null-monad-command-config {} {})
+                                          (put-state! 42))))
+  (is (= [nil 42]
+         (run-monadic (null-monad-command-config {} {}) 
+                      (put-state! 42)))))
+
 (deftest null-config
   (let [c (null-monad-command-config nil nil)]
     (is (unknown-command? ((monad-command-config-run-command c)