nip {
{ 0 [ i 1 + i! 0 j! ] }
{ 1 [ t done?! ] }
- { 2 [ sp consume j + j! sp consume i + i! ] }
+ { 2 [ sp consume j + j!
+ sp consume i + i! ] }
} case
] if
] [
nip {
{ 0 [ i 1 + i! 0 j! ] }
{ 1 [ t done?! ] }
- { 2 [ sp consume j + j! sp consume i + i! ] }
+ { 2 [ sp consume j + j!
+ sp consume i + i! ] }
} case
] if
] [
! Words for finding the words used in a program
! and stripping out import statements
: skip-imports ( sequence-parser -- sequence-parser string/? )
- dup consume {
+ dup consume {
{ "USING:" [ ";" skip-after* f ] }
{ "USE:" [ advance f ] }
[ ]