monads: Rename words to not be class/word

[factor.git] / extra / monads / monads-tests.factor

diff --git a/extra/monads/monads-tests.factor b/extra/monads/monads-tests.factor
index 5504633bb636fdac67bc5007f3c930467c142776..4c568f5f5f5d6c1962fdecdd9841e4e01b150116 100644 (file)
--- a/extra/monads/monads-tests.factor
+++ b/extra/monads/monads-tests.factor
@@ -6,11 +6,11 @@ IN: monads.tests
 [ "OH HAI" identity-monad fail ] must-fail
 
 [ 666 ] [
-    111 just [ 6 * ] fmap [ ] [ "OOPS" throw ] if-maybe
+    111 <just> [ 6 * ] fmap [ ] [ "OOPS" throw ] if-maybe
 ] unit-test
 
 [ nothing ] [
-    111 just [ maybe-monad fail ] bind
+    111 <just> [ maybe-monad fail ] bind
 ] unit-test
 
 [ 100 ] [
@@ -70,10 +70,10 @@ IN: monads.tests
 
 [ nothing ] [
     {
-        [ "hi" just ]
-        [ " bye" append just ]
+        [ "hi" <just> ]
+        [ " bye" append <just> ]
         [ drop nothing ]
-        [ reverse just ]
+        [ reverse <just> ]
     } do
 ] unit-test
 
@@ -121,9 +121,9 @@ LAZY: nats-from ( n -- list )
 ] unit-test
 
 [ nothing ] [
-    5 just nothing maybe-monad apply
+    5 <just> nothing maybe-monad apply
 ] unit-test
 
 [ T{ just f 15 } ] [
-    5 just [ 10 + ] just maybe-monad apply
+    5 <just> [ 10 + ] <just> maybe-monad apply
 ] unit-test