From 4db24cc9d460504ea970dd41ea72d91ef3c39734 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 27 Sep 2020 20:45:36 -0400
Subject: =?UTF-8?q?Remove=20unsupported=20token=20=E2=86=92=20from=20compi?=
 =?UTF-8?q?ler=20entirely?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/c.bqn | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 92662f9e..12fb93b7 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -4,7 +4,7 @@ charSet‿cgl←(∾ ≍○< ≠¨)⟨
   "˙˜˘¨⌜⁼´˝`"           # Modifier
   "∘○⊸⟜⌾⊘◶⎉⚇⍟"          # Composition
   lf∾"⋄,"               # Separator
-  "←↩→"                 # Gets
+  "←↩"                  # Gets
   "(){}⟨⟩"              # Bracket
   "‿"                   # Ligature
   "·"                   # nOthing
@@ -125,12 +125,12 @@ Parse ← {r‿nv←𝕨
   r+↩pt(⊣∧≤=○I1T⊢)(»⌾(g⊸⊏)3=r)∨1≤r
 
   id←/idm←(0⊸≤∧<⟜nv)xv←𝕩-vi⋄idx←id⊏𝕩⋄sp←/𝕩 M bI
-  ad←(𝕩 M bG)IT⊸⊏𝕩=⊑bG
+  ad←𝕩(=>○IT⊣=1+⊢)⊑bG
 
   g↩⍋+`rev⊏p-br⋄gr←g⊏rev⋄sll←1+2÷˜0(<-○/>)gr⊏sr-sl⋄l←/g⊏𝕩=5+⊑bB
   g⊏˜↩gs←⍋gr⊏sl⋄gr↩g⊏rev⋄gi←⍋g
   𝕩⊏˜↩g⋄r⊏˜↩gr⋄ps⊏˜↩gr⋄si←/gr⊏sr>sl⋄l⊏↩⍋gs
-  s←𝕩=sep⋄a←𝕩M⟨⊑bG,2⟩
+  s←𝕩=sep⋄a←𝕩 M bG
   op←r≥2⋄fe←(r≥1)∨«r=3
   tr←(IT»ps)⊏fe
   ma←tr<(𝕩=1+⊑bG)∧«fe
-- 
cgit v1.2.3