From 761e48dac77e15a7bfac6a4d4c90b2b201dcb795 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Thu, 9 Sep 2021 13:48:20 -0400 Subject: =?UTF-8?q?Special=20handling=20for=20=5F=F0=9D=95=A3=5F=20to=20ma?= =?UTF-8?q?ke=20its=20block=20a=202-modifier?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/c.bqn | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/c.bqn b/src/c.bqn index 6ec49a3b..33514908 100644 --- a/src/c.bqn +++ b/src/c.bqn @@ -190,7 +190,8 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn hj←gi⊏˜he/hi⋄hd←2=he/hk # Block properties - HS←H((0‿3‿5‿6+⊑bI)⍋𝕩)⊸=⋄sp←/hf<𝕩 M bI # Has-special (𝕤𝕩𝕨/𝕣𝕗/𝕘); indices of specials + uru←(rev⊏r=3)∧𝕩=3+⊑bI # _𝕣_ + HS←H(uru+(0‿3‿5‿6+⊑bI)⍋𝕩)⊸=⋄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 "Invalid special names for block header"_err_(ch/0∾/∘CB) (hr