Tolerable APL quad jot and del tilde

That completes the IBM APL2 character set.

diff --git a/bedstead.c b/bedstead.c
index 23d08420954b00bde16a07ce898485d5a8572ef4..2f45ed1f663000080e4ebabd5d38834b14f38ace 100644 (file)
--- a/bedstead.c
+++ b/bedstead.c
@@ -1317,6 +1317,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 */
+ {{037,021,025,033,025,021,037,000,000}, U(233B) }, /* APL quad jot */
  {{004,016,025,025,025,016,004,000,000}, U(233D) }, /* APL circle stile */
  {{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 */
@@ -1338,6 +1339,7 @@ static struct glyph {
  {{012,000,004,012,012,004,000,000,000}, U(2364) }, /* APL jot dieresis */
  {{012,000,010,025,002,000,000,000,000}, U(2368) }, /* APL tilde dieresis */
  {{000,000,000,037,000,000,004,004,010}, U(236A) }, /* APL comma bar */
+ {{037,021,021,016,033,004,004,000,000}, U(236B) }, /* APL del tilde */
  {{016,021,031,025,023,021,016,000,000}, U(236C) }, /* APL zilde */
  {{010,025,002,000,021,012,004,000,000}, U(2371) }, /* APL nor */
  {{010,025,002,000,004,012,021,000,000}, U(2372) }, /* APL nand */