skip-imports ( sequence-parser -- sequence-parser string/? )

Vocabulary

lint.vocabs.private

Inputs

sequence-parser

an object

Outputs

sequence-parser	an object
string/?	an object

Definition

USING: combinators kernel sequences.parser ;

IN: lint.vocabs.private

: skip-imports
    ( sequence-parser -- sequence-parser string/? )
    dup consume {
        { "USING:" [ ";" skip-after* f ] }
        { "USE:" [ advance f ] }
        [ ]
    } case ;