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 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'c.bqn')

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
 
-- 
cgit v1.2.3