aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-08-09 15:45:13 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-08-09 15:49:53 -0400
commit0d510dc8ba8a5c90abe08cacbe1e16114feb9e40 (patch)
tree6f951da19cb9e83078e5d8406e7bd1002cb20b58 /src
parent486d4b6ad42f0760102aa34fcd9c37bd4f39491c (diff)
Fix immediacy of modifiers with labels
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 8843a64f..307f1a3d 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -174,7 +174,7 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn
HS←H((0‿3‿5‿6+⊑bI)⍋𝕩)⊸=⋄sp←/hf<𝕩 M bI # Has-special (𝕤𝕩𝕨/𝕣𝕗/𝕘); indices of specials
fx←HS 1⋄fr←(fx∨0⊸<)⊸+ft←2(⊣⌈2×⊢)○HS 3 # Body immediacy ¬fx, type ft, role fr
"Invalid special names for block header"_err_(/CB) 1↓ch∧hr<fr
- ft⌈↩1-˜fr⌈↩ch×hr⋄fx⌈↩ch∧0<fr
+ ft⌈↩1-˜fr⌈↩ch×hr⋄fx⌈↩ch∧1=fr
"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↓cm>fx
"Block bodies must be of the same kind"_err_(/CB) 1↓cf<»⊸≠ft