From: Ben Harris <bjh21@bjh21.me.uk>
Date: Sat, 16 May 2020 11:21:50 +0000 (+0100)
Subject: Fix the APL Greek letters, which were a mess
X-Git-Tag: bedstead-002.002~28
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~bjharris/git?a=commitdiff_plain;h=d18a8519e48bd2e96a42da13e67b54dfeeabfc38;p=bedstead.git

Fix the APL Greek letters, which were a mess
---

diff --git a/bedstead.c b/bedstead.c
index fa91a35..5a932a0 100644
--- a/bedstead.c
+++ b/bedstead.c
@@ -1310,11 +1310,10 @@ static struct glyph {
  {{010,025,002,000,004,012,021,000,000}, U(2372) }, /* APL nand */
  {{000,000,014,004,004,004,002,000,000}, U(2373) }, /* APL iota */
  {{000,000,016,021,021,021,036,020,020}, U(2374) }, /* APL rho */
- {{000,000,014,004,004,004,002,000,037}, U(2373) }, /* APL iota underbar */
  {{000,000,012,021,025,025,012,000,000}, U(2375) }, /* APL omega */
- {{000,000,014,004,004,004,002,000,037}, U(2373) }, /* APL iota underbar */
- {{000,000,015,022,022,022,015,000,037}, U(237A) }, /* APL alpha underbar */
+ {{000,000,015,022,022,022,015,000,037}, U(2376) }, /* APL alpha underbar */
  {{017,020,037,020,017,000,037,000,000}, U(2377) }, /* APL epsilon underbar */
+ {{000,000,014,004,004,004,002,000,037}, U(2378) }, /* APL iota underbar */
  {{000,000,012,021,025,025,012,000,037}, U(2379) }, /* APL omega underbar*/
  {{000,000,015,022,022,022,015,000,000}, U(237A) }, /* APL alpha */
  {{000,000,005,002,025,010,000,000,000}, U(237B) }, /* crossed tick (NAK) */