From c06d1ac3ccbc0e7687886bb6a0418ca0b8aa8f76 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 17 Nov 2020 15:50:35 -0500
Subject: Check for length-0 arguments in Lcs

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

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 2b3ea883..db631de5 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -104,7 +104,7 @@ ReadNums←{
 
 Parse ← {r‿vn‿i‿e←𝕨⋄nv←≠vn
   ErrMismatchedBrackets←{
-    Lcs ← ¯1 ⊑ 0¨∘⊢ {𝕩⌈⌈`𝕨+»𝕩}˝ =⌜⟜⌽
+    Lcs ← ∧○(0<≠)◶⟨0, ¯1 ⊑ 0¨∘⊢ {𝕩⌈⌈`𝕨+»𝕩}˝ =⌜⟜⌽⟩
     _mis_ ← {"Missing "∾𝕗∾" "∾charSet⊏˜𝕘+⊢/˜≠∘⊣=⊒}
     Msg ← >○≠◶⟨"opening"_mis_ 0, "closing"_mis_ 1˜⟩
     0 !˜ 𝕨 (Lcs<⌊○≠)◶⟨Msg,"Malformed bracket nesting"⟩ 𝕩
-- 
cgit v1.2.3