From 972e9943d14342b1e14fe72bbe60b54ee78e93ee Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 14 Aug 2021 10:38:30 -0400
Subject: Check for second : in one body

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

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 246634ab..f3c3c9c8 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -170,6 +170,7 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn
   rr←rev⊏r
   hr←rr⊏˜hi←/hf←hh⊏˜⟜IT⌾((⌽g)⊸⊏)¯1=rr
   hl←2=hn←(1⊸»+«)hc←¯1=hr
+  "Only one header per body allowed"_err_(hc/HI) (1+hc/hi)⊏hf
   ho←(»∨·«(hr=3)∧⊢)hl<hd←2≤hr               # Header operands
   "Missing operand in header"_err_(/HF) ho∧hc∨hd
   hm←¬ho∨ha←ho<(0=hr)∧1=hn                  # Mask for main name; header arguments
-- 
cgit v1.2.3