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=a859c36f2e22661c7c8b2dee311d7de787e43c00;hp=9a3e605c7fc4926f5b5f90fd1fd4af6259208529;hb=77a128fc331bf41cf7aacf6dff2f960adad8acb8;hpb=3adec5c396dc71ca12b0f30a51736f087b3e26d5

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