From 49fe6eb11fda5fccb016feb914b0bce1ae2ea6a0 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 14 Aug 2021 10:31:36 -0400
Subject: Fix header variable slot adjustment if there are bodies without
 headers

---
 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 589422c5..246634ab 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -196,7 +196,7 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn
   "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
   fsc←(ft⊏0‿2‿3)+3×fx                       # Special name count
-  hv-↩hc+`⊸⊏«3׬fx                          # Header variable slot
+  hv-↩(»+`hc)⊏3׬ch/fx                      # Header variable slot
 
   # Propagate roles through parentheses
   # ir is the role of the expression ending at each position (truncated to the right)
-- 
cgit v1.2.3