aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-11-21 21:01:44 -0500
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-11-21 21:01:44 -0500
commit571a709aa54775eb97c01b7f88e75cf13e268df4 (patch)
treedc361d9bdfea20b3fe77a679b9d407842d045d87 /src
parent2f9cb340043213e0100887255629c2256781bb62 (diff)
Allow multiple bodies in all blocks, even without arguments
Diffstat (limited to 'src')
-rw-r--r--src/c.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/c.bqn b/src/c.bqn
index 172d3876..a98fb01e 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -205,7 +205,7 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn
"Block header conflicts with other bodies"_err_(ch/0∾/∘CB) (hr<ch/fr)∨hl<hx<ch/fx
ft⌈↩1-˜fr↩hr⌾(ch⊸/)fr⋄fx↩hx⊸⌈⌾(ch⊸/)fx
"Special name outside of any block"_err_(/{(0=fi)∧𝕩 M bI}∘𝕩) 0<⊑fr
- "Only blocks with explicit arguments can have multiple bodies"_err_(/CB) 1↓(»⊸∨cq>ch)<cm>fx
+ "Unreachable body"_err_(/CB) 1↓(»⊸∨(¬hl)⌾(ch⊸/)cq)<cm>fx
fsc←(ft⊏0‿2‿3)+3×fx # Special name count
hv-↩(»+`hc)⊏3׬ch/fx # Header variable slot