Fix the APL Greek letters, which were a mess

diff --git a/bedstead.c b/bedstead.c
index fa91a35d6864be349773d54c1c9e8672204d306e..5a932a0828097c8d61fb05eec18562c3b1875e63 100644 (file)
--- 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) */