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

! 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

DEFER: <% delimiter

: check-<% ( lexer -- col )
    "<%" swap [ line-text>> ] [ column>> ] bi start* ;

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