From 72833e950a437c922476221132396afd56736478 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 31 Dec 2017 18:40:38 -0800
Subject: [PATCH] modern: Handle ``3</foo>``

---
 extra/modern/modern.factor | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/extra/modern/modern.factor b/extra/modern/modern.factor
index 2e90acc4ec..600c27bbf4 100644
--- a/extra/modern/modern.factor
+++ b/extra/modern/modern.factor
@@ -219,6 +219,15 @@ ERROR: unexpected-terminator n string slice ;
         [ ">" tail? ]
     } 1&& ;
 
+: special-acute? ( string -- ? )
+    {
+        [ section-open? ]
+        [ html-self-close? ]
+        [ html-full-open? ]
+        [ html-half-open? ]
+        [ html-close? ]
+    } 1|| ;
+
 : upper-colon? ( string -- ? )
     dup { [ length 0 > ] [ [ char: \: = ] all? ] } 1&& [
         drop t
@@ -304,7 +313,7 @@ ERROR: colon-word-must-be-all-uppercase-or-lowercase n string word ;
         { [ dup html-close? ] [
             ! Do nothing
         ] }
-        ! [ B ]
+        [ [ slice-til-whitespace drop ] dip span-slices ]
     } cond ;
 
 ! Words like append! and suffix! are allowed for now.