comment-parser ( -- parser )

Vocabulary

fjsc

Inputs

None

Outputs

parser

an object

Definition

USING: kernel make peg ;

IN: fjsc

: comment-parser ( -- parser )
    [
        "!" token hide ,
        [ dup 10 = swap 13 = or not ] satisfy repeat0 ,
    ] seq* [ drop ast-comment boa ] action ;