\ 4tH library - 3 value logic - Copyright 2011 J.L. Bezemer
\ You can redistribute this file and/or modify it under
\ the terms of the GNU General Public License

[UNDEFINED] TFALSE [IF]
-1 enum     TFALSE
   enum     TNULL
   constant TTRUE

aka negate tnot
aka min    tand
aka max    tor
aka *      t=
aka 0=     t0=

: txor t= tnot ;
: t=> swap tnot tor ;
[THEN]
