mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-16 13:38:45 +10:00
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 ;
|
|
|
|
|