|
123456789101112131415 |
- ( Skip atom, considering special atom types. )
- : ASKIP ( a -- a+n )
- DUP @ ( a n )
- ( ?br or br or NUMBER )
- DUP 0x67 = OVER 0x53 = OR OVER 0x20 = OR OVER 0x24 = OR
- 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+
- ;
|