note. ( str -- )

Vocabulary

parser.notes

Inputs

str

an object

Outputs

None

Definition

USING: accessors io kernel lexer math.parser namespaces
source-files ;

IN: parser.notes

: note. ( str -- )
    parser-quiet? get
    [ drop ] [
        current-source-file get [ path>> write ":" write ] when*
        lexer get
        [ line>> number>string write ": " write ] when*
        "Note:" print print
    ] if ;