From: Ben Harris <bjh21@bjh21.me.uk>
Date: Sat, 16 May 2020 13:24:06 +0000 (+0100)
Subject: Minor APL polishing
X-Git-Tag: bedstead-002.002~27
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~bjharris/git?a=commitdiff_plain;h=551b84af591e70bcaec52efbe5eefc7e8bfe8535;p=bedstead.git

Minor APL polishing
---

diff --git a/bedstead.c b/bedstead.c
index 5a932a0..d3ed2f2 100644
--- a/bedstead.c
+++ b/bedstead.c
@@ -1285,8 +1285,8 @@ static struct glyph {
  {{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(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,001,012,004,012,020,000,000,000}, U(233F) }, /* APL slash bar */
+ {{000,020,012,004,012,001,000,000,000}, U(2340) }, /* APL backslash bar */
  {{037,021,023,025,031,021,037,000,000}, U(2341) }, /* APL quad slash */
  {{037,021,031,025,023,021,037,000,000}, U(2342) }, /* APL quad backslash */
  {{000,026,011,025,022,015,000,000,000}, U(2349) }, /* APL circle backslash */
@@ -1297,9 +1297,9 @@ static struct glyph {
  {{004,004,037,025,025,012,012,004,004}, U(2352) }, /* APL del stile */
  {{037,004,016,025,025,016,004,000,000}, U(2355) }, /* APL up tack jot */
  {{004,004,012,012,021,021,037,000,037}, U(2359) }, /* APL delta underbar */
- {{000,016,021,033,025,021,000,000,000}, U(235D) }, /* APL up show jot */
+ {{000,016,025,033,025,021,000,000,000}, U(235D) }, /* APL up shoe jot */
  {{037,025,025,021,021,021,037,000,000}, U(235E) }, /* APL quote quad */
- {{016,021,033,025,033,021,016,000,000}, U(235F) }, /* APL circle star */
+ {{016,025,037,025,033,021,016,000,000}, U(235F) }, /* APL circle star */
  {{037,021,025,021,025,021,037,000,000}, U(2360) }, /* APL quad colon */
  {{012,000,025,016,004,016,025,000,000}, U(2363) }, /* APL star dieresis */
  {{012,000,004,012,012,004,000,000,000}, U(2364) }, /* APL jot dieresis */