aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-10-08 18:46:41 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-10-08 18:46:41 -0400
commitd60897a7a079bfde658e9836b4556424f1b546bc (patch)
treeeaae403b90e30830f2f4ace5933d2ba574235c22 /src
parent04324e2cb698afde7c4bce8e188ee7b904ab4a75 (diff)
Output block data from parse as separate per-block lists
Diffstat (limited to 'src')
-rw-r--r--src/c.bqn5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/c.bqn b/src/c.bqn
index 4f3e8cc0..535a37e8 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -169,8 +169,7 @@ Parse ← {r‿nv←𝕨
bc←or⊏∾idbc∾⟨0¨cn,ob,15¨b,1+↕≠b,14¨dr,3+l⊏aa,ll,3+si⊏aa,sll
(11-⊑bG)+a/ma+𝕩,5+oa⊏r,(⊢+9×10⊸=)16+dy-7×fa⊏er,25¨rt⟩
bcl‿el←LEB bc∾25
- fs←(ft≍¨¬fx)∾¨(el/˜1∾or≥bc-○≠rt)≍¨lc+fsc
- ⟨bcl,u,fs⟩
+ ⟨bcl,u,⟨ft,¬fx,el/˜1∾or≥bc-○≠rt,lc+fsc⟩⟩
}
LEB←{
@@ -184,5 +183,5 @@ LEB←{
Compile←{
⟨t,r,nVar,const⟩←Tokenize𝕩
⟨bc,pr,blk⟩←r‿nVar Parse t
- ⟨bc,(pr⊏𝕨)∾const,blk⟩
+ ⟨bc,(pr⊏𝕨)∾const,<˘⍉>blk⟩
}