From 8ef1527c67aff95dd36d08777d5b52b520a31a65 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 19 Aug 2020 08:42:20 -0400
Subject: Fix swapped bracket check, which failed when the input started with
 an open bracket

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

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 59dbc742..f156c251 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -89,9 +89,9 @@ ErrMismatchedBrackets←{
   0 !˜ 𝕨 (Lcs<⌊○≠)◶⟨Msg,"Malformed bracket nesting"⟩ 𝕩
 }
 Parse ← {nv‿r←𝕨
-  g←⍋+`p←𝕩(Mׯ1⋆2|-⟜⊑)bB⋄br←p×𝕩M 2≍˜2+⊑bB
+  g←⍋pd←+`p←𝕩(Mׯ1⋆2|-⟜⊑)bB⋄br←p×𝕩M 2≍˜2+⊑bB
   p(=⟜1⊸/ErrMismatchedBrackets⍟≢1-˜=⟜¯1⊸/)○(g⊸⊏)𝕩
-  "Swapped open and closed brackets" ! (0≤⊑p)∧0=⊑g
+  "Swapped open and closed brackets" ! 0≤(⊑g)⊑pd
   sl←1⊸⌽⊸∨𝕩 M bL⋄sr←¯1⊸⌽⌾(g⊸⊏)sl⋄sa←sl∨sr
   g⊏˜↩⍋g⊏sl⋄r×↩¬sa⋄o←p>0
   r+↩(sa<𝕩=1+⊑bB)(⊣∧¬⊸∨=○(⌈`(1+↕∘≠)⊸×)⊢)(¯1⊸⌽⌾(g⊸⊏)3=r)∨1≤r
-- 
cgit v1.2.3