From 0d510dc8ba8a5c90abe08cacbe1e16114feb9e40 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 9 Aug 2021 15:45:13 -0400
Subject: Fix immediacy of modifiers with labels

---
 src/c.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3