parse-%> ( accum lexer -- accum )

Vocabulary

html.templates.fhtml

Inputs

accum	an object
lexer	an object

Outputs

accum

an object

Definition

USING: kernel lexer ;

IN: html.templates.fhtml

: parse-%> ( accum lexer -- accum )
    dup still-parsing? [
        dup check-<%
        [ found-<% ] [ [ still-looking ] keep parse-%> ] if*
    ] [ drop ] if ;