mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 14:58:05 +11:00
16 lines
415 B
Plaintext
16 lines
415 B
Plaintext
|
( Skip atom, considering special atom types. )
|
||
|
: ASKIP ( a -- a+n )
|
||
|
DUP @ ( a n )
|
||
|
( ?br or br or NUMBER )
|
||
|
DUP <>{ 0x67 &= 0x53 |= 0x20 |= 0x24 |= <>}
|
||
|
IF DROP 4 + EXIT THEN
|
||
|
( regular word )
|
||
|
0x22 = NOT IF 2+ EXIT THEN
|
||
|
( it's a lit, skip to null char )
|
||
|
( a )
|
||
|
1+ ( we skip by 2, but the loop below is pre-inc... )
|
||
|
BEGIN 1+ DUP C@ NOT UNTIL
|
||
|
( skip null char )
|
||
|
1+
|
||
|
;
|