aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdc.bqn4
1 files changed, 2 insertions, 2 deletions
diff --git a/dc.bqn b/dc.bqn
index 43d694b8..06c527a6 100755
--- a/dc.bqn
+++ b/dc.bqn
@@ -13,12 +13,12 @@ prims ← (•Import "dzref"){𝔽} "⟨
special←<˘∘‿2⥊"𝕤𝕩𝕨𝕣𝕗𝕘"
DCompile⇐{
- ⟨bc,o,fblk⟩ ← 3 ↑ prims Compile 𝕩
+ ⟨bc,o,fblk,ind⟩ ← 4 ↑ prims Compile 𝕩
blk‿bdy ← <˘⍉>(↕≠fblk){
⟨t,i,l,n⟩←𝕩
s←(3×i)↓(t⊑3‿5‿6)↑special
⟨⟨t,i,𝕨,𝕨⟩ ⋄ ⟨l, s∾⥊¨'a'+↕n-≠s⟩⟩
}¨fblk
- ⟨bc,o,blk,bdy⟩
+ ⟨bc,o,blk,bdy,ind,𝕩⟩
}
DRun⇐•COMP∘DCompile