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=9a3e605c7fc4926f5b5f90fd1fd4af6259208529;hp=f4503cbdd3f1f1f552f91f3a96002d95332de64f;hb=721a6dc3ab99fbedc175ab9fdca32db223eb9375;hpb=07c8c00a124d6c33b44fc0d4d412e9943dd3e0bd

diff --git a/extra/monads/monads.factor b/extra/monads/monads.factor
index f4503cbdd3..9a3e605c7f 100644
--- a/extra/monads/monads.factor
+++ b/extra/monads/monads.factor
@@ -7,6 +7,7 @@ IN: monads
 
 ! Functors
 GENERIC# fmap 1 ( functor quot -- functor' )
+GENERIC# <$ 1 ( functor quot -- functor' )
 
 ! Monads