X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fmonads%2Fmonads.factor;fp=extra%2Fmonads%2Fmonads.factor;h=c1ab4400ba65b52e932d8a6e8e91494fcf541be4;hp=18820d1b53dbdaf44c4481af864d0a892f650065;hb=707226859a945656ead5d161719ca1106343145b;hpb=10e5c074d9dd2166b752c9b3b0146bf41d4473a1

diff --git a/extra/monads/monads.factor b/extra/monads/monads.factor
index 18820d1b53..c1ab4400ba 100644
--- a/extra/monads/monads.factor
+++ b/extra/monads/monads.factor
@@ -124,7 +124,7 @@ M: list-monad fail   2drop nil ;
 
 M: list monad-of drop list-monad ;
 
-M: list >>= '[ , _ lmap lconcat ] ;
+M: list >>= '[ , _ lazy-map lconcat ] ;
 
 ! State
 SINGLETON: state-monad