mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 14:18:05 +11:00
16 lines
220 B
Plaintext
16 lines
220 B
Plaintext
|
: _&
|
||
|
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 )
|
||
|
' = _| |=
|
||
|
' = _& &=
|
||
|
' > _| |>
|
||
|
' > _& &>
|
||
|
' < _| |<
|
||
|
' < _& &<
|