From 455bcaadbc2bfba285fa9ed9d2a483a83f2155ea Mon Sep 17 00:00:00 2001
From: Ben Harris <bjh21@bjh21.me.uk>
Date: Fri, 15 May 2020 09:32:42 +0100
Subject: [PATCH] Fix a couple of Unicode values for APL

---
 bedstead.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bedstead.c b/bedstead.c
index 030ff1d..d78795c 100644
--- 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 */
-- 
2.30.2