From bf20d000e8ee0723e0215d1feb0272b843c7a148 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 2 Nov 2021 18:13:07 -0400
Subject: Fix handling of role/type propagation for some compound arguments

---
 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 c4889f7a..cf32844e 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -198,7 +198,7 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn
   hj←gi⊏˜he/hi⋄hd←2=he/hk
 
   # Block properties
-  ss←0‿3‿5‿6⍋hv⊸⌊⌾(hi⊸⊏)𝕩-⊑bI               # Special name
+  ss←0‿3‿5‿6⍋(⊢+(0<hk)×hv⊸-)⌾(hi⊸⊏)𝕩-⊑bI    # Special name
   ss+↩(rev⊏r=3)∧𝕩=3+⊑bI                     # Treat _𝕣_ as 3, like 𝕘
   HS←(¯1+`cf)⊏b¬∘PN=⟜ss⋄sp←/hf<𝕩 M bI       # Has-special (𝕤𝕩𝕨/𝕣𝕗/𝕘); indices of specials
   fx←HS 1⋄fr←(fx∨0⊸<)⊸+ft←2(⊣⌈2×⊢)○HS 3     # Body immediacy ¬fx, type ft, role fr
-- 
cgit v1.2.3