still-looking ( accum lexer -- accum )

Vocabulary

html.templates.fhtml

Inputs

accum	an object
lexer	an object

Outputs

accum

an object

Definition

USING: accessors io kernel lexer sequences ;

IN: html.templates.fhtml

: still-looking ( accum lexer -- accum )
    [
        [ line-text>> ] [ column>> ] bi tail suffix!
        \ print suffix!
    ] keep next-line ;