diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-09-09 13:48:20 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-09-09 13:48:20 -0400 |
| commit | 761e48dac77e15a7bfac6a4d4c90b2b201dcb795 (patch) | |
| tree | 0a597f56107f0623aae9de3b07069558acf28c21 /src/c.bqn | |
| parent | b2dcd558850f17370eae054418a68105087cda14 (diff) | |
Special handling for _𝕣_ to make its block a 2-modifier
Diffstat (limited to 'src/c.bqn')
| -rw-r--r-- | src/c.bqn | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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<ch/fr)∨(hm/hl)<hx<ch/fx ft⌈↩1-˜fr↩hr⌾(ch⊸/)fr⋄fx↩hx⊸⌈⌾(ch⊸/)fx |