Support empty bracketed lists

2 files changed, 3 insertions, 1 deletions

diff --git a/dc.bqn b/dc.bqn
index 5c191980..8646e312 100755
--- a/dc.bqn
+++ b/dc.bqn
@@ -142,7 +142,7 @@ DParse ← {nv‿r𝕊𝕩:
   oa←⌽/opa⋄fa←/(tf∨¬tr)∧(ro∧1⌽opa)<(r=1)∨op<¯1⌽opa
   dy←fa⊏1↓0∾˜(tr∧r≥0)∨r=0
   n←𝕩≥vi+nv⋄id←/n<𝕩≥vi⋄cn←/n∨𝕩≤¯1⊑bC⋄u←⍷ob←cn⊏𝕩
-  lo←(o/𝕩)=4⊑bB⋄l∾↩/𝕩=5⊑bB⋄ll∾↩1+lo/1(↓--⊸↓)(o∾1)/+`s∾0
+  lo←(o/𝕩)=4⊑bB⋄l∾↩/𝕩=5⊑bB⋄ll∾↩1+lo/1(↓--⊸↓)(o∾1)/+`(s∾0)-(1∾o)∧ps∾1
   dr←/s>o+`⊸⊏0∾lo
   or←⍋g⊏˜∾⟨cn,cn,id,id,1+/a,dr,l,l,oa+1⌈1-˜oa⊏os,fa+dy⟩
   bc←or⊏∾⟨0¨cn,u⊐ob,1+(id-1)⊏a,vi-˜id⊏𝕩,(11-⊑bG)+a/𝕩
diff --git a/test/bcases.bqn b/test/bcases.bqn
index cf4d7ab3..518a37ff 100644
--- a/test/bcases.bqn
+++ b/test/bcases.bqn
@@ -23,3 +23,5 @@
 2    % 0⊑2‿+‿-‿1
 30   % ×´(2‿(1+3)‿(×4))+1
 1    % f←2⊑(ט)‿⍟‿(×-+)⋄2 F 3
+0    % ≠⟨⟩
+1    % ⟨⟩≡0↑1‿2