From 93f75e97685520cdad3afab0134e2f65e5e211e2 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 21 Jul 2020 19:48:24 -0400
Subject: =?UTF-8?q?Add=20Insert=20(=CB=9D)=201-modifier?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 c.bqn | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'c.bqn')

diff --git a/c.bqn b/c.bqn
index 13252655..30525216 100755
--- a/c.bqn
+++ b/c.bqn
@@ -3,7 +3,7 @@
 nl‿tab←•UCS 10‿9
 charSet←∾charGroups←⟨
   chF←"+-×÷⋆√⌊⌈|¬∧∨<>≠=≤≥≡≢⊣⊢⥊∾≍↑↓↕⌽⍉/⍋⍒⊏⊑⊐⊒∊⍷⊔!" # Function
-  "˜˘¨⌜⁼´`"             # Modifier
+  "˜˘¨⌜⁼´˝`"            # Modifier
   "∘○⊸⟜⌾⊘◶⎉⚇⍟"          # Composition
   ¯1⊏˘10‿2⥊"𝕨𝕎𝕩𝕏𝕗𝔽𝕘𝔾𝕤𝕊" # Input (𝕣 pending; ℝ not allowed)
   nl∾"⋄,"               # Separator
@@ -79,7 +79,7 @@ GenF64←{
   l←2(⌊⋆⁼)𝕩
   (Hex"44")∾2 Base˘8‿8⥊∾⟨¯52↑(0⌈l)Enc2𝕩,11 Enc2 1023+l,⥊0⟩
 }
-MakeTab←{{⊑∘(∾⟜0)¨¯1↓(chF⊐𝕨)⊔○(∾⟜(≠chF))𝕩}○∾⟜(⥊¨∘⥊¨)´<˘⍉(2(÷˜∾⊣)≢)⊸⥊𝕩}
+MakeTab←{{⊑∘(∾⟜0)¨¯1↓(chF⊐𝕨)⊔○(∾⟜(≠chF))𝕩}○∾⟜(⥊¨∘⥊¨)˝⍉(2(÷˜∾⊣)≢)⊸⥊𝕩}
 tab1←MakeTab⟨
   "⊣⊢"     , 2⥊<⟨⟩
   "|-⌈⌊√"  , (Hex"99")+(↕4)∾6
@@ -98,7 +98,7 @@ f64←127-3
 GenFn←{
   ⟨⟩GenFn𝕩;
   ⟨t,r,nVar,nLoc,lits⟩←𝕨Tokenize𝕩
-  t⊏˜↩⍋+`-´<˘(2‿3⊏bB)=⌜t
+  t⊏˜↩⍋+`-˝(2‿3⊏bB)=⌜t
   nd←+´c←t=3⊑bB
   t↩((vi+nVar+≠lits)+↕∘≠)⌾(c⊸/)t
   ⟨a,na⟩←Parse t
@@ -111,7 +111,7 @@ GenFn←{
 }
 
 Gen←{
-  LEB←{0:⥊0;128⊸+⌾(¯1⊸↓) 2 Base˘ (⌽·∨`·⌽∨´˘)⊸/ 10‿7(⊣⥊×´⊸↑) 64 Enc2 𝕩}
+  LEB←{0:⥊0;128⊸+⌾(¯1⊸↓) 2 Base˘ (∨`⌾⌽∨˝˘)⊸/ 10‿7(⊣⥊×´⊸↑) 64 Enc2 𝕩}
   C←LEB∘≠⊸∾
   S←∾⟜C
   V←≠∾∾
@@ -163,7 +163,7 @@ DParse ← {nv‿r𝕊𝕩:
 
 prims←⟨
   +,-,×,÷,⋆,√,⌊,⌈,|,¬,∧,∨,<,>,≠,=,≤,≥,≡,≢,⊣,⊢,⥊,∾,≍,↑,↓,↕,⌽,⍉,/,⍋,⍒,⊏,⊑,⊐,⊒,∊,⍷,⊔,!
-  ˜,˘,¨,⌜,⁼,´,`
+  ˜,˘,¨,⌜,⁼,´,˝,`
   ∘,○,⊸,⟜,⌾,⊘,◶,⎉,⚇,⍟
 ⟩
 DGenFn←{
-- 
cgit v1.2.3