From e8e72d5a2db26857288dab4397ddabdb861b1961 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 3 Aug 2021 09:34:41 -0400
Subject: Update dc.bqn for block/body split

---
 dc.bqn | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/dc.bqn b/dc.bqn
index 60e8fd55..30f623fd 100755
--- a/dc.bqn
+++ b/dc.bqn
@@ -9,13 +9,10 @@ compile ← glyphs •Import "src/c.bqn"
 
 special←<˘∘‿2⥊"𝕤𝕩𝕨𝕣𝕗𝕘"
 DCompile⇐{
-  ⟨bc,o,fblk,ind,tok⟩ ← 5 ↑ (𝕨 •BQN∘⥊¨∘∾⊘⊣ glyphs) Compile 𝕩
+  ⟨bc,o,fblk,fbdy,ind,tok⟩ ← 6 ↑ (𝕨 •BQN∘⥊¨∘∾⊘⊣ glyphs) Compile 𝕩
   name ← ⊑2⊑tok
-  blk‿bdy ← <˘⍉>(↕≠fblk){
-    ⟨t,i,l,n,d,e⟩←𝕩
-    s←(3×i)↓(t⊑3‿5‿6)↑special
-    ⟨⟨t,i,𝕨,𝕨⟩ ⋄ ⟨l, s∾d⊏name, (0¨s)∾e⟩⟩
-  }¨fblk
+  blk ← 2(↑∾≍˜∘⊑)¨fblk
+  bdy ← {⟨l,n,d,e⟩←𝕩 ⋄ ⟨l,((<"")⥊˜n-≠d)∾d⊏name,n-⊸↑e⟩}¨fbdy
   ⟨bc,o,blk,⊑blk,bdy,⊑ind,1⊑ind,𝕩⟩
 }
 DRun⇐•COMP∘DCompile
-- 
cgit v1.2.3