7 lines
197 B
Factor
7 lines
197 B
Factor
: logical-operators ( a b -- )
|
|
{
|
|
[ "xor is: " write xor . ]
|
|
[ "and is: " write and . ]
|
|
[ "or is: " write or . ]
|
|
[ "not is: " write drop not . ]
|
|
} 2cleave ;
|