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

1 files changed, 1 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