<lexer-error> ( msg -- error )

Vocabulary

lexer

Inputs

msg

an error

Outputs

error

a lexer-error

Word description

Creates a new lexer-error, filling in the location information from the current lexer.

Definition

USING: accessors combinators kernel namespaces ;

IN: lexer

: <lexer-error> ( msg -- error )
    [
        lexer get {
            [ line>> ]
            [ column>> ]
            [ line-text>> ]
            [ parsing-words>> clone ]
        } cleave
    ] dip lexer-error boa ;