steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

handle-patch-and-put
Alexander Iljin 2018-07-30 09:14:32 +02:00 committed by John Benediktsson
parent f56ed221d7
commit 6b23c7c6d6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/rosetta-code/ternary-logic/ternary-logic.factor
View File

@ -61,7 +61,7 @@ M: trit >trit ;
} case ; } case ;
: t= ( trit1 trit2 -- trit ) : t= ( trit1 trit2 -- trit )
{ >trit {
{ t [ >trit ] } { t [ >trit ] }
{ m [ drop m ] } { m [ drop m ] }
{ f [ tnot ] } { f [ tnot ] }