aboutsummaryrefslogtreecommitdiff
path: root/src/c.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-08-14 10:38:30 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-08-14 10:38:30 -0400
commit972e9943d14342b1e14fe72bbe60b54ee78e93ee (patch)
tree2831c9529aa32c6b563bdb37092d634ef3c7f5d5 /src/c.bqn
parent49fe6eb11fda5fccb016feb914b0bce1ae2ea6a0 (diff)
Check for second : in one body
Diffstat (limited to 'src/c.bqn')
-rw-r--r--src/c.bqn1
1 files changed, 1 insertions, 0 deletions
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