mirror of https://github.com/hsoft/collapseos.git
14 lines
157 B
Plaintext
14 lines
157 B
Plaintext
|
( Words useful for complex comparison operations )
|
||
|
|
|
||
|
|
: >= < NOT ;
|
||
|
|
: <= > NOT ;
|
||
|
|
: 0>= 0< NOT ;
|
||
|
|
|
||
|
|
( n1 -- n1 true )
|
||
|
|
: <>{ 1 ;
|
||
|
|
|
||
|
|
( n1 f -- f )
|
||
|
|
: <>} SWAP DROP ;
|
||
|
|
|
||
|
|
|