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=d8d4e35a3542faab52d78dc22f3b99c080851bdd;hp=73e2b98eb282c404d2c63ab4bbd1b5928eda0e09;hb=42ae9ac0155d204be23446ac09efca7b35721bcc;hpb=6b5b955a4162bc25c36f56373e8ee377728ca3a8

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