Fix a couple of Unicode values for APL

diff --git a/bedstead.c b/bedstead.c
index 030ff1d316b7f5686a505b95d4d76f5e90ef1639..d78795c4b4509c750f92ed8dd73b8b7d3d905a53 100644 (file)
--- a/bedstead.c
+++ b/bedstead.c
@@ -1244,7 +1244,6 @@ static struct glyph {
  {{000,021,000,000,000,004,000,000,000}, U(2235) }, /* because */
  {{000,010,024,025,005,002,000,000,000}, U(223F) }, /* sinewave */
  {{000,010,025,002,010,025,002,000,000}, 0x2248, "approxequal" },
- {{000,004,012,021,012,004,000,000,000}, U(224C) }, /* diamond operator */
  {{000,002,037,004,037,010,000,000,000}, 0x2260, "notequal" },
  {{000,037,000,037,000,037,000,000,000}, 0x2261, "equivalence" },
  {{002,037,004,037,004,037,010,000,000}, U(2262) }, /* not identical */
@@ -1264,6 +1263,7 @@ static struct glyph {
  {{000,001,001,037,001,001,000,000,000}, U(22A3) }, /* left tack */
  {{000,037,004,004,004,004,000,000,000}, U(22A4) }, /* down tack */
  {{000,004,004,004,004,037,000,000,000}, U(22A5) }, /* up tack */
+ {{000,004,012,021,012,004,000,000,000}, U(22C4) }, /* diamond operator */
  {{000,004,000,004,000,004,000,000,000}, U(22EE) }, /* vertical ellipsis */
  {{000,000,000,025,000,000,000,000,000}, U(22EF) }, /* midline ellipsis */
  {{000,001,000,004,000,020,000,000,000}, U(22F0) }, /* /-diagonal ellipsis */
@@ -1282,7 +1282,7 @@ static struct glyph {
  {{037,021,037,021,037,021,037,000,000}, U(2338) }, /* APL quad equal */
  {{037,025,021,037,021,025,037,000,000}, U(2339) }, /* APL quad divide */
  {{037,025,033,021,033,025,037,000,000}, U(233A) }, /* APL quad diamond */
- {{004,016,025,025,025,016,004,000,000}, U(233C) }, /* APL circle stile */
+ {{004,016,025,025,025,016,004,000,000}, U(233D) }, /* APL circle stile */
  {{000,001,032,004,013,020,000,000,000}, U(233F) }, /* APL slash bar */
  {{000,020,013,004,032,001,000,000,000}, U(2340) }, /* APL backslash bar */
  {{000,026,011,025,022,015,000,000,000}, U(2349) }, /* APL circle backslash */