literate-lexer

Vocabulary

literate

Definition

USING: lexer ;

IN: literate

TUPLE: literate-lexer < lexer ;

Methods

USING: accessors generic kernel lexer literate math sequences ;

M: literate-lexer skip-blank
    dup column>> zero? [
        dup line-text>> [
            "> " head? [
                [ 2 + ] change-column
                M\ literate-lexer skip-blank (call-next-method)
            ] [ [ nip length ] change-lexer-column ] if
        ] [ drop ] if*
    ] [ M\ literate-lexer skip-blank (call-next-method) ] if ;