Minor APL polishing

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