From d9546b5085d95696e93b2796545ff94eafe05928 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 18 Aug 2021 21:13:13 -0400
Subject: Fix handling of different roles in strands in headers

---
 src/c.bqn | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 557e5ced..17ba9a5a 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -167,9 +167,9 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn
   "Header-less bodies must come last"_err_(/CB) 1(-⊸↓<co∧↓)ch
   "At most two header-less bodies allowed"_err_(/CB) »⊸∧co>¯1↓ch
   cc←(⍋⍋«co)⊏c∾/cs                          # Case close
-  rr←rev⊏r
-  hr←rr⊏˜hi←/hf←hh⊏˜⟜IT⌾((⌽g)⊸⊏)cb∨hh
-  hl←2=hn←(1⊸»+«)hc←¯1=hr
+  hi←/hf←hh⊏˜⟜IT⌾((⌽g)⊸⊏)cb∨hh              # Header component indices
+  hr←(⊏⟜ns×⊏⟜r)rev⊏˜hi                      # And their roles
+  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
-- 
cgit v1.2.3