Eqn writer: avoid empty {}.

This causes an error, along the lines of ``` eqn:<standard input>:73: error: syntax error context is } above { >>> } <<< ``` which can be avoided if we use `{""}`. Closes jgm#198.
siemanko · Sep 11, 2022 · 0fb6bf8 · 0fb6bf8
1 parent 86428f4
commit 0fb6bf8
Show file tree

Hide file tree

Showing 70 changed files with 130 additions and 125 deletions.
diff --git a/src/Text/TeXMath/Writers/Eqn.hs b/src/Text/TeXMath/Writers/Eqn.hs
@@ -28,6 +28,7 @@ import Text.TeXMath.Types
 import qualified Text.TeXMath.Shared as S
 import Data.Generics (everywhere, mkT)
 import Data.Ratio ((%))
+import Data.Text (Text)
 
 -- import Debug.Trace
 -- tr' x = trace (show x) x
@@ -42,16 +43,20 @@ writeEqn dt exprs =
 writeExp' :: Exp -> T.Text
 writeExp' e@(EGrouped _) = writeExp e
 writeExp' e = if T.any (== ' ') s
-                 then "{" <> s <> "}"
+                 then asgroup s
                  else s
                where s = writeExp e
 
 writeExps :: [Exp] -> T.Text
 writeExps = T.intercalate " " . map writeExp
 
+asgroup :: Text -> Text
+asgroup "" = "{\"\"}"  -- see #198
+asgroup t = "{" <> t <> "}"
+
 writeExp :: Exp -> T.Text
 writeExp (ENumber s) = s
-writeExp (EGrouped es) = "{" <> writeExps es <> "}"
+writeExp (EGrouped es) = asgroup $ writeExps es
 writeExp (EDelimited open close es) =
   "left " <> mbQuote open <> " " <> T.intercalate " " (map fromDelimited es) <>
   " right " <> mbQuote close
@@ -184,7 +189,7 @@ writeExp (EText ttype s) =
        TextBoldItalic -> "bold italic " <> quoted
        _   -> quoted
 writeExp (EStyled ttype es) =
-  let contents = "{" <> writeExps es <> "}"
+  let contents = asgroup $ writeExps es
   in case ttype of
        TextNormal -> "roman " <> contents
        TextItalic -> "italic " <> contents

diff --git a/test/writer/eqn/00000_C0_Controls_and_Basic_Latin.test b/test/writer/eqn/00000_C0_Controls_and_Basic_Latin.test
@@ -184,7 +184,7 @@
 ]
 >>> eqn
 matrix{
-ccol{ {} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
+ccol{ {""} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
 ccol{ {roman "0"} above * above * above * above * above * above * above * above * above * above * above * above * above * above * above * above * }
 ccol{ {roman "1"} above * above * above * above * above * above * above * above * above * above * above * above * above * above * above * above * }
 ccol{ {roman "2"} above "" above ! above " above # above $ above % above & above ' above ( above ) above * above + above , above - above . above / }

diff --git a/test/writer/eqn/00080_C1_Controls_and_Latin-1_Supplement.test b/test/writer/eqn/00080_C1_Controls_and_Latin-1_Supplement.test
@@ -184,7 +184,7 @@
 ]
 >>> eqn
 matrix{
-ccol{ {} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
+ccol{ {""} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
 ccol{ {roman "8"} above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ }
 ccol{ {roman "9"} above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ }
 ccol{ {roman "A"} above \[u00A0] above \[u00A1] above \[u00A2] above \[u00A3] above \[u00A4] above \[u00A5] above \[u00A6] above \[u00A7] above \[u00A8] above \[u00A9] above \[u00AA] above \[u00AB] above \[u00AC] above \[u00AD] above \[u00AE] above \[u00AF] }

diff --git a/test/writer/eqn/00100_Latin_Extended-A.test b/test/writer/eqn/00100_Latin_Extended-A.test
@@ -184,7 +184,7 @@
 ]
 >>> eqn
 matrix{
-ccol{ {} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
+ccol{ {""} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
 ccol{ {roman "10"} above \[u0100] above \[u0101] above \[u0102] above \[u0103] above \[u0104] above \[u0105] above \[u0106] above \[u0107] above \[u0108] above \[u0109] above \[u010A] above \[u010B] above \[u010C] above \[u010D] above \[u010E] above \[u010F] }
 ccol{ {roman "11"} above \[u0110] above \[u0111] above \[u0112] above \[u0113] above \[u0114] above \[u0115] above \[u0116] above \[u0117] above \[u0118] above \[u0119] above \[u011A] above \[u011B] above \[u011C] above \[u011D] above \[u011E] above \[u011F] }
 ccol{ {roman "12"} above \[u0120] above \[u0121] above \[u0122] above \[u0123] above \[u0124] above \[u0125] above \[u0126] above \[u0127] above \[u0128] above \[u0129] above \[u012A] above \[u012B] above \[u012C] above \[u012D] above \[u012E] above \[u012F] }

diff --git a/test/writer/eqn/00180_Latin_Extended-B.test b/test/writer/eqn/00180_Latin_Extended-B.test
@@ -274,7 +274,7 @@
 ]
 >>> eqn
 matrix{
-ccol{ {} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
+ccol{ {""} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
 ccol{ {roman "18"} above \[u0180] above \[u0181] above \[u0182] above \[u0183] above \[u0184] above \[u0185] above \[u0186] above \[u0187] above \[u0188] above \[u0189] above \[u018A] above \[u018B] above \[u018C] above \[u018D] above \[u018E] above \[u018F] }
 ccol{ {roman "19"} above \[u0190] above \[u0191] above \[u0192] above \[u0193] above \[u0194] above \[u0195] above \[u0196] above \[u0197] above \[u0198] above \[u0199] above \[u019A] above \[u019B] above \[u019C] above \[u019D] above \[u019E] above \[u019F] }
 ccol{ {roman "1A"} above \[u01A0] above \[u01A1] above \[u01A2] above \[u01A3] above \[u01A4] above \[u01A5] above \[u01A6] above \[u01A7] above \[u01A8] above \[u01A9] above \[u01AA] above \[u01AB] above \[u01AC] above \[u01AD] above \[u01AE] above \[u01AF] }

diff --git a/test/writer/eqn/00250_IPA_Extensions.test b/test/writer/eqn/00250_IPA_Extensions.test
@@ -148,7 +148,7 @@
 ]
 >>> eqn
 matrix{
-ccol{ {} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
+ccol{ {""} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
 ccol{ {roman "25"} above \[u0250] above \[u0251] above \[u0252] above \[u0253] above \[u0254] above \[u0255] above \[u0256] above \[u0257] above \[u0258] above \[u0259] above \[u025A] above \[u025B] above \[u025C] above \[u025D] above \[u025E] above \[u025F] }
 ccol{ {roman "26"} above \[u0260] above \[u0261] above \[u0262] above \[u0263] above \[u0264] above \[u0265] above \[u0266] above \[u0267] above \[u0268] above \[u0269] above \[u026A] above \[u026B] above \[u026C] above \[u026D] above \[u026E] above \[u026F] }
 ccol{ {roman "27"} above \[u0270] above \[u0271] above \[u0272] above \[u0273] above \[u0274] above \[u0275] above \[u0276] above \[u0277] above \[u0278] above \[u0279] above \[u027A] above \[u027B] above \[u027C] above \[u027D] above \[u027E] above \[u027F] }

diff --git a/test/writer/eqn/002B0_Spacing_Modifier_Letters.test b/test/writer/eqn/002B0_Spacing_Modifier_Letters.test
@@ -130,7 +130,7 @@
 ]
 >>> eqn
 matrix{
-ccol{ {} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
+ccol{ {""} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
 ccol{ {roman "2B"} above \[u02B0] above \[u02B1] above \[u02B2] above \[u02B3] above \[u02B4] above \[u02B5] above \[u02B6] above \[u02B7] above \[u02B8] above \[u02B9] above \[u02BA] above \[u02BB] above \[u02BC] above \[u02BD] above \[u02BE] above \[u02BF] }
 ccol{ {roman "2C"} above \[u02C0] above \[u02C1] above \[u02C2] above \[u02C3] above \[u02C4] above \[u02C5] above \[u02C6] above \[u02C7] above \[u02C8] above \[u02C9] above \[u02CA] above \[u02CB] above \[u02CC] above \[u02CD] above \[u02CE] above \[u02CF] }
 ccol{ {roman "2D"} above \[u02D0] above \[u02D1] above \[u02D2] above \[u02D3] above \[u02D4] above \[u02D5] above \[u02D6] above \[u02D7] above \[u02D8] above \[u02D9] above \[u02DA] above \[u02DB] above \[u02DC] above \[u02DD] above \[u02DE] above \[u02DF] }

diff --git a/test/writer/eqn/00300_Combining_Diacritical_Marks.test b/test/writer/eqn/00300_Combining_Diacritical_Marks.test
@@ -166,7 +166,7 @@
 ]
 >>> eqn
 matrix{
-ccol{ {} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
+ccol{ {""} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
 ccol{ {roman "30"} above \[u0300] above \[u0301] above \[u0302] above \[u0303] above \[u0304] above \[u0305] above \[u0306] above \[u0307] above \[u0308] above \[u0309] above \[u030A] above \[u030B] above \[u030C] above \[u030D] above \[u030E] above \[u030F] }
 ccol{ {roman "31"} above \[u0310] above \[u0311] above \[u0312] above \[u0313] above \[u0314] above \[u0315] above \[u0316] above \[u0317] above \[u0318] above \[u0319] above \[u031A] above \[u031B] above \[u031C] above \[u031D] above \[u031E] above \[u031F] }
 ccol{ {roman "32"} above \[u0320] above \[u0321] above \[u0322] above \[u0323] above \[u0324] above \[u0325] above \[u0326] above \[u0327] above \[u0328] above \[u0329] above \[u032A] above \[u032B] above \[u032C] above \[u032D] above \[u032E] above \[u032F] }

diff --git a/test/writer/eqn/00370_Greek_and_Coptic.test b/test/writer/eqn/00370_Greek_and_Coptic.test
@@ -202,7 +202,7 @@
 ]
 >>> eqn
 matrix{
-ccol{ {} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
+ccol{ {""} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
 ccol{ {roman "37"} above \[u0370] above \[u0371] above \[u0372] above \[u0373] above \[u0374] above \[u0375] above \[u0376] above \[u0377] above @ above @ above \[u037A] above \[u037B] above \[u037C] above \[u037D] above \[u037E] above @ }
 ccol{ {roman "38"} above @ above @ above @ above @ above \[u0384] above \[u0385] above \[u0386] above \[u0387] above \[u0388] above \[u0389] above \[u038A] above @ above \[u038C] above @ above \[u038E] above \[u038F] }
 ccol{ {roman "39"} above \[u0390] above \[u0391] above \[u0392] above GAMMA above DELTA above \[u0395] above \[u0396] above \[u0397] above THETA above \[u0399] above \[u039A] above LAMBDA above \[u039C] above \[u039D] above XI above \[u039F] }

diff --git a/test/writer/eqn/00400_Cyrillic.test b/test/writer/eqn/00400_Cyrillic.test
@@ -328,7 +328,7 @@
 ]
 >>> eqn
 matrix{
-ccol{ {} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
+ccol{ {""} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
 ccol{ {roman "40"} above \[u0400] above \[u0401] above \[u0402] above \[u0403] above \[u0404] above \[u0405] above \[u0406] above \[u0407] above \[u0408] above \[u0409] above \[u040A] above \[u040B] above \[u040C] above \[u040D] above \[u040E] above \[u040F] }
 ccol{ {roman "41"} above \[u0410] above \[u0411] above \[u0412] above \[u0413] above \[u0414] above \[u0415] above \[u0416] above \[u0417] above \[u0418] above \[u0419] above \[u041A] above \[u041B] above \[u041C] above \[u041D] above \[u041E] above \[u041F] }
 ccol{ {roman "42"} above \[u0420] above \[u0421] above \[u0422] above \[u0423] above \[u0424] above \[u0425] above \[u0426] above \[u0427] above \[u0428] above \[u0429] above \[u042A] above \[u042B] above \[u042C] above \[u042D] above \[u042E] above \[u042F] }

diff --git a/test/writer/eqn/01E00_Latin_Extended_Additional.test b/test/writer/eqn/01E00_Latin_Extended_Additional.test
@@ -328,7 +328,7 @@
 ]
 >>> eqn
 matrix{
-ccol{ {} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
+ccol{ {""} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
 ccol{ {roman "1E0"} above \[u1E00] above \[u1E01] above \[u1E02] above \[u1E03] above \[u1E04] above \[u1E05] above \[u1E06] above \[u1E07] above \[u1E08] above \[u1E09] above \[u1E0A] above \[u1E0B] above \[u1E0C] above \[u1E0D] above \[u1E0E] above \[u1E0F] }
 ccol{ {roman "1E1"} above \[u1E10] above \[u1E11] above \[u1E12] above \[u1E13] above \[u1E14] above \[u1E15] above \[u1E16] above \[u1E17] above \[u1E18] above \[u1E19] above \[u1E1A] above \[u1E1B] above \[u1E1C] above \[u1E1D] above \[u1E1E] above \[u1E1F] }
 ccol{ {roman "1E2"} above \[u1E20] above \[u1E21] above \[u1E22] above \[u1E23] above \[u1E24] above \[u1E25] above \[u1E26] above \[u1E27] above \[u1E28] above \[u1E29] above \[u1E2A] above \[u1E2B] above \[u1E2C] above \[u1E2D] above \[u1E2E] above \[u1E2F] }

diff --git a/test/writer/eqn/01F00_Greek_Extended.test b/test/writer/eqn/01F00_Greek_Extended.test
@@ -328,7 +328,7 @@
 ]
 >>> eqn
 matrix{
-ccol{ {} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
+ccol{ {""} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
 ccol{ {roman "1F0"} above \[u1F00] above \[u1F01] above \[u1F02] above \[u1F03] above \[u1F04] above \[u1F05] above \[u1F06] above \[u1F07] above \[u1F08] above \[u1F09] above \[u1F0A] above \[u1F0B] above \[u1F0C] above \[u1F0D] above \[u1F0E] above \[u1F0F] }
 ccol{ {roman "1F1"} above \[u1F10] above \[u1F11] above \[u1F12] above \[u1F13] above \[u1F14] above \[u1F15] above @ above @ above \[u1F18] above \[u1F19] above \[u1F1A] above \[u1F1B] above \[u1F1C] above \[u1F1D] above @ above @ }
 ccol{ {roman "1F2"} above \[u1F20] above \[u1F21] above \[u1F22] above \[u1F23] above \[u1F24] above \[u1F25] above \[u1F26] above \[u1F27] above \[u1F28] above \[u1F29] above \[u1F2A] above \[u1F2B] above \[u1F2C] above \[u1F2D] above \[u1F2E] above \[u1F2F] }

diff --git a/test/writer/eqn/02000_General_Punctuation.test b/test/writer/eqn/02000_General_Punctuation.test
@@ -166,7 +166,7 @@
 ]
 >>> eqn
 matrix{
-ccol{ {} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
+ccol{ {""} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
 ccol{ {roman "200"} above \[u2000] above \[u2001] above \[u2002] above \[u2003] above \[u2004] above \[u2005] above \[u2006] above \[u2007] above \[u2008] above \[u2009] above \[u200A] above \[u200B] above \[u200C] above \[u200D] above \[u200E] above \[u200F] }
 ccol{ {roman "201"} above \[u2010] above \[u2011] above \[u2012] above \[u2013] above \[u2014] above \[u2015] above \[u2016] above \[u2017] above \[u2018] above \[u2019] above \[u201A] above \[u201B] above \[u201C] above \[u201D] above \[u201E] above \[u201F] }
 ccol{ {roman "202"} above \[u2020] above \[u2021] above \[u2022] above \[u2023] above \[u2024] above \[u2025] above ... above \[u2027] above \[u2028] above \[u2029] above \[u202A] above \[u202B] above \[u202C] above \[u202D] above \[u202E] above \[u202F] }

diff --git a/test/writer/eqn/02070_Superscripts_and_Subscripts.test b/test/writer/eqn/02070_Superscripts_and_Subscripts.test
@@ -90,7 +90,7 @@
 ]
 >>> eqn
 matrix{
-ccol{ {} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
+ccol{ {""} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
 ccol{ {roman "207"} above \[u2070] above \[u2071] above @ above @ above \[u2074] above \[u2075] above \[u2076] above \[u2077] above \[u2078] above \[u2079] above \[u207A] above \[u207B] above \[u207C] above \[u207D] above \[u207E] above \[u207F] }
 ccol{ {roman "208"} above \[u2080] above \[u2081] above \[u2082] above \[u2083] above \[u2084] above \[u2085] above \[u2086] above \[u2087] above \[u2088] above \[u2089] above \[u208A] above \[u208B] above \[u208C] above \[u208D] above \[u208E] above @ }
 ccol{ {roman "209"} above \[u2090] above \[u2091] above \[u2092] above \[u2093] above \[u2094] above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ }

diff --git a/test/writer/eqn/020A0_Currency_Symbols.test b/test/writer/eqn/020A0_Currency_Symbols.test
@@ -90,7 +90,7 @@
 ]
 >>> eqn
 matrix{
-ccol{ {} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
+ccol{ {""} above {roman "0"} above {roman "1"} above {roman "2"} above {roman "3"} above {roman "4"} above {roman "5"} above {roman "6"} above {roman "7"} above {roman "8"} above {roman "9"} above {roman "A"} above {roman "B"} above {roman "C"} above {roman "D"} above {roman "E"} above {roman "F"} }
 ccol{ {roman "20A"} above \[u20A0] above \[u20A1] above \[u20A2] above \[u20A3] above \[u20A4] above \[u20A5] above \[u20A6] above \[u20A7] above \[u20A8] above \[u20A9] above \[u20AA] above \[u20AB] above \[u20AC] above \[u20AD] above \[u20AE] above \[u20AF] }
 ccol{ {roman "20B"} above \[u20B0] above \[u20B1] above \[u20B2] above \[u20B3] above \[u20B4] above \[u20B5] above \[u20B6] above \[u20B7] above \[u20B8] above @ above @ above @ above @ above @ above @ above @ }
 ccol{ {roman "20C"} above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ above @ }