From 83939b328870936faaddf865682121a0d12fd0dd Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 6 Oct 2020 11:07:08 -0400
Subject: Remove redundant parentheses at the beginning of parsing

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

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 91a10597..b6af9c89 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -106,15 +106,17 @@ ErrUndeclared←{
   0 !˜ "Undefined identifier"∾(1<≠𝕩)/"s"
 }
 Parse ← {r‿nv←𝕨
-  g←⍋pd←+`p←(¯1-2×r)×𝕩 M bB⋄br←p×𝕩M⟨2+⊑bB,2⟩
+  g←⍋pd←+`p←(¯1-2×r)×𝕩 M bB⋄pp←g⊏p×𝕩M⟨⊑bB,2⟩
   p(=⟜1⊸/ErrMismatchedBrackets⍟≢1-˜=⟜¯1⊸/)○(g⊸⊏)𝕩
   "Swapped open and closed brackets" ! 0≤(⊑g)⊑pd
-  sl←«⊸∨𝕩 M bL⋄sr←»⌾(g⊸⊏)sl⋄cp←𝕩=1+⊑bB
+  rp←¬g⍋⊸⊏(pp>0)(/{𝕨⌾((pp<0)⊸/)𝕩}∧)(«⊢<1⊸«)⊸∧g⊏p>0
+  𝕩/˜↩rp⋄r/˜↩rp⋄g↩⍋+`p↩rp/p
+  sr←»⌾(g⊸⊏)sl←«⊸∨𝕩 M bL⋄cp←𝕩=1+⊑bB
   ps←(𝕩=sep)∨sl∨p>0
   g⊏˜↩⍋g⊏sl
   rev←⍋+`¯1↓(¯1∾g)(⊣⍋⊸⊏⊏˜⟜⍋¬⊏˜)⍋+`⊸+1∾g⊏ps
 
-  gf←⍋fd←+`rev⊏br
+  gf←⍋fd←+`rev⊏br←p×𝕩M⟨2+⊑bB,2⟩
   rev⊏˜↩gf⋄fd⊏˜↩gf
   𝕩⊏˜↩rev⋄bv←rev⊏br⋄b←/bv<0⋄fi←+`c←bv>0
 
-- 
cgit v1.2.3