From 84862c68d7ae94ada5df1e73e2583ed40245fd93 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 22 Nov 2021 21:47:49 -0500
Subject: =?UTF-8?q?Reject=20=5F=F0=9D=95=A3=5F=E2=81=BC=20in=20headers?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 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 a98fb01e..eba491fa 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -178,7 +178,7 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn
   hl←2=hn←(1⊸»+«)hc←¯1=hr                   # hl: is label, hc: is :
   "Only one header per body allowed"_err_(hc/HI) (1+hc/hi)⊏hf
   ho←(»∨·«(hr=3)∧⊢)hl<hy←2≤hr               # Header operands
-  "Missing operand in header"_err_(HI) ho∧hc∨hy
+  "Missing operand in header"_err_(HI) (ut∧hr=3)∨ho∧hc∨hy
   hm←¬ho∨ha←ho<(0=hr)∧1=hn                  # Mask for main name; header arguments
   "Invalid header structure"_err_(hm/HI) 1⊸»⊸=hm/hc
   hk←3|1-˜(+`bI∾nv)⍋ht←hi⊏𝕩׬rev⊏sr         # Kind: 0 special, 1 name, 2 compound
-- 
cgit v1.2.3