Use areas between open braces, not closed ones, to find block roles

2 files changed, 2 insertions, 1 deletions

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}