1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-17 07:58:10 +11:00
collapseos/blk/440

16 lines
220 B
Plaintext
Raw Normal View History

2020-04-26 11:54:07 +10:00
: _&
CREATE , DOES>
( n1 f n2 cell )
ROT NOT IF 2DROP 0 EXIT THEN ( n1 true )
_|&
;
( All words below have this signature:
n1 f n2 -- n1 f )
' = _| |=
' = _& &=
' > _| |>
' > _& &>
' < _| |<
' < _& &<