Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

16 lines
415B

  1. ( Skip atom, considering special atom types. )
  2. : ASKIP ( a -- a+n )
  3. DUP @ ( a n )
  4. ( ?br or br or NUMBER )
  5. DUP <>{ 0x67 &= 0x53 |= 0x20 |= 0x24 |= <>}
  6. IF DROP 4 + EXIT THEN
  7. ( regular word )
  8. 0x22 = NOT IF 2+ EXIT THEN
  9. ( it's a lit, skip to null char )
  10. ( a )
  11. 1+ ( we skip by 2, but the loop below is pre-inc... )
  12. BEGIN 1+ DUP C@ NOT UNTIL
  13. ( skip null char )
  14. 1+
  15. ;