 DEFER: <% delimiter
 
 : check-<% ( lexer -- col )
-    "<%" over line-text>> rot column>> start* ;
+    "<%" swap [ line-text>> ] [ column>> ] bi start* ;
 
 : found-<% ( accum lexer col -- accum )
     [

! Copyright (C) 2005 Alex Chapman
! Copyright (C) 2006, 2009 Slava Pestov
! See http://factorcode.org/license.txt for BSD license.
USING: continuations sequences kernel namespaces debugger
combinators math quotations generic strings splitting accessors

: parse-template ( string -- quot )
    [
        [
            "quiet" on
            parser-notes off
            "html.templates.fhtml" use-vocab
            string-lines parse-template-lines
        ] with-file-vocabs
    ] with-compilation-unit ;

