From a46cbe4119fd4406fbdac6ae0fb4df1a37c54585 Mon Sep 17 00:00:00 2001
From: David Barksdale <amatus.amongus@gmail.com>
Date: Wed, 3 Nov 2010 16:10:26 -0700
Subject: [PATCH] Fix fetch-val to accept keys other than keywords.

---
 .../src/main/clojure/clojure/contrib/monads.clj    |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/modules/monads/src/main/clojure/clojure/contrib/monads.clj b/modules/monads/src/main/clojure/clojure/contrib/monads.clj
index 3cb1bd1..a1c2aea 100644
--- a/modules/monads/src/main/clojure/clojure/contrib/monads.clj
+++ b/modules/monads/src/main/clojure/clojure/contrib/monads.clj
@@ -368,7 +368,7 @@
   [key]
   (domonad state-m
     [s (fetch-state)]
-    (key s)))
+    (get s key)))
 
 (defn update-val
   "Return a state-monad function that assumes the state to be a map and
-- 
1.7.1