skip-comments ( lexer str -- str' )

Vocabulary

lexer

Inputs

lexer	an object
str	an object

Outputs

str'

an object

Definition

USING: kernel ;

IN: lexer

: skip-comments ( lexer str -- str' )
    dup "!" = [ drop [ next-line ] keep parse-token ] [ nip ] if
    ;