1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 11:28:10 +11:00
collapseos/blk/438

14 lines
157 B
Plaintext
Raw Normal View History

2020-04-26 11:54:07 +10:00
( Words useful for complex comparison operations )
: >= < NOT ;
: <= > NOT ;
: 0>= 0< NOT ;
( n1 -- n1 true )
: <>{ 1 ;
( n1 f -- f )
: <>} SWAP DROP ;