aboutsummaryrefslogtreecommitdiff
path: root/src/c.bqn
diff options
context:
space:
mode:
Diffstat (limited to 'src/c.bqn')
-rw-r--r--src/c.bqn2
1 files changed, 1 insertions, 1 deletions
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