parse-here ( -- str )

Vocabulary

multiline

Inputs

None

Outputs

str

an object

Definition

USING: kernel lexer make multiline.private namespaces sequences
;

IN: multiline

: parse-here ( -- str )
    [
        lexer get dup rest-of-line
        [ text-found-before-eol ] unless-empty (parse-here)
    ] "" make but-last ;