From 709882eba7545582ccfed9d7f7d5e76c2e6f5dfb Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 23 Jul 2020 20:56:38 -0400
Subject: Use areas between open braces, not closed ones, to find block roles

---
 c.bqn           | 2 +-
 test/bcases.bqn | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/c.bqn b/c.bqn
index cb31ed6c..6cf5ebac 100755
--- a/c.bqn
+++ b/c.bqn
@@ -146,7 +146,7 @@ DParse ← {nv‿r𝕊𝕩:
   rev←⍋+`1+¯1↓g((¯1∾⊣)(⊣⍋⊸⊏⊏˜-⊏˜⟜⍋)⟜⍋1(+`∘∾-∾˜)⊏)o∨sl∨𝕩∊bS
   rev⊏˜↩⍋{+`⌾((⍋+`𝕩)⊸⊏)𝕩>0}rev⊏br
   bv←rev⊏br⋄b←/be←bv<0
-  H←<˝∘⍉2↕(be∾1)/·+`0∾˜(rev⊏𝕩)∊(5⊑bI)+⊢
+  H←<˝∘⍉2↕(1∾˜bv>0)/·+`0∾˜(rev⊏𝕩)∊(5⊑bI)+⊢
   ft←(H↕3)+2×(H⥊3)⌈2×H⥊4
   r↩(ft⊏(1+2⊸≤)⊸/↕4)⌾((be/rev)⊸⊏)r
 
diff --git a/test/bcases.bqn b/test/bcases.bqn
index 7daba994..72249b8f 100644
--- a/test/bcases.bqn
+++ b/test/bcases.bqn
@@ -35,3 +35,4 @@
 6    % +´(ט)‿-{𝕎𝕩}¨3
 5    % 2+⍟3-1
 9    % _m←˜⋄{mm←𝕩⋄×_mm 3}m
+-2   % F←{-𝕩}⋄{F 2}
-- 
cgit v1.2.3