found-<% ( accum lexer col -- accum )

Vocabulary

html.templates.fhtml

Inputs

accum	an object
lexer	an object
col	an object

Outputs

accum

an object

Definition

USING: accessors io kernel math sequences ;

IN: html.templates.fhtml

: found-<% ( accum lexer col -- accum )
    [
        over line-text>> [ column>> ] 2dip subseq suffix!
        \ write suffix!
    ] 2keep 2 + >>column drop ;