From 41803c58a607e4a31c87f9bbafe488bfe92f77c5 Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Fri, 21 Feb 2020 20:58:11 +0000
Subject: [PATCH] html formatter: a patch to allow escaping formatting
 characters

FossilOrigin-Name: 9a81e5658c991acf16cb576c3a77613420263ed2812cf561ae0fea638d80384f
---
 example/export-as-html.retro | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/example/export-as-html.retro b/example/export-as-html.retro
index e7675a8..a8a1514 100755
--- a/example/export-as-html.retro
+++ b/example/export-as-html.retro
@@ -133,7 +133,6 @@ to deal with.
 'Code var
 
 :format
-  @Escape [ &Escape v:on ] if;
   $` [ @Escape [ &Escape v:off $* c:put ] if;
        @Code n:zero? [ '<tt_style='display:inline'> &Code v:on ]
                      [ '</tt> &Code v:off ] choose s:put ] case
@@ -143,6 +142,7 @@ to deal with.
   $_ [ @Escape @Code or [ &Escape v:off $_ c:put ] if;
        @Emphasis n:zero? [ '<em> &Emphasis v:on ]
                          [ '</em> &Emphasis v:off ] choose s:put ] case
+  $\ [ &Escape v:on ] case
   c:put ;
 
 :s:put<formatted> [ format ] s:for-each ;