diff options
| author | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-02-15 22:04:30 +0000 |
|---|---|---|
| committer | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-02-15 22:04:30 +0000 |
| commit | ab67c84237f052fea57d7cbfc45d7908026f46fa (patch) | |
| tree | 21757506115ff02b6ee257532e48e3bfb914effe /src/clojure/contrib/monads.clj | |
| parent | 742d0143421335f7eea6ca858efe9af576ec8f6a (diff) | |
monads: fixes to make it work with the lazy branch
Diffstat (limited to 'src/clojure/contrib/monads.clj')
| -rw-r--r-- | src/clojure/contrib/monads.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clojure/contrib/monads.clj b/src/clojure/contrib/monads.clj index 7fcac162..7f328440 100644 --- a/src/clojure/contrib/monads.clj +++ b/src/clojure/contrib/monads.clj @@ -1,7 +1,7 @@ ;; Monads in Clojure ;; by Konrad Hinsen -;; last updated February 14, 2009 +;; last updated February 15, 2009 ;; Copyright (c) Konrad Hinsen, 2009. All rights reserved. The use ;; and distribution terms for this software are covered by the Eclipse @@ -169,7 +169,7 @@ (reduce (fn [q p] (m-bind p (fn [x] (m-bind q (fn [y] - (m-result (lazy-cons x y)))) ))) + (m-result (cons x y)))) ))) (m-result '()) (reverse ms))) |