rosetta-code.ternary-logic: add a missing type cast to t=

diff --git a/extra/rosetta-code/ternary-logic/ternary-logic.factor b/extra/rosetta-code/ternary-logic/ternary-logic.factor
index 23709db46d1ceffc21bda5ab26940494871cb0bc..64fc3cbb5f6f4fdef7b4c86735ba64daba635af8 100644 (file)
--- a/extra/rosetta-code/ternary-logic/ternary-logic.factor
+++ b/extra/rosetta-code/ternary-logic/ternary-logic.factor
@@ -61,7 +61,7 @@ M: trit >trit ;
     } case ;
 
 : t= ( trit1 trit2 -- trit )
-    {
+    >trit {
         { t [ >trit ] }
         { m [ drop m ] }
         { f [ tnot ] }