From e6285d28750af5e663666bf17e3969efbdfa5681 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 18 Aug 2020 23:02:09 -0400
Subject: Check for negative nesting depth

---
 src/c.bqn | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 06fcd28f..59dbc742 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -91,6 +91,7 @@ ErrMismatchedBrackets←{
 Parse ← {nv‿r←𝕨
   g←⍋+`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
   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