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

2018-07-30 09:14:32 +02:00 · 2018-07-30 09:14:32 +02:00 · 6b23c7c6d6
parent f56ed221d7
commit 6b23c7c6d6
1 changed files with 1 additions and 1 deletions
--- 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 ] }