From ea9af520fe48d55496fb681dec4a8cbbdc4ec51f Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 8 May 2021 16:37:01 -0400 Subject: =?UTF-8?q?Handle=20lone=20=E2=87=90,=20forcing=20a=20namespace?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/c.bqn | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'src') diff --git a/src/c.bqn b/src/c.bqn index 943695de..20febabc 100644 --- a/src/c.bqn +++ b/src/c.bqn @@ -160,6 +160,7 @@ Parse ← {r‿vn‿i‿e←𝕨⋄nv←≠vn ir⌈↩(IT¬pt∧ir=0)((⊏-⊢)⟜(+`¬pp)(⊢⌊1⌈+)⊏)ir # ...and function roles r+↩pt×»ir # Roles at pt were 0; set them now ir(×⟜¬-⊢)↩nr # Include nothingness (doesn't handle 𝕎) + r-↩(r=¯4)∧1»r=¯1 # Lone ⇐ to role ¯5 # Prep for lexical resolution before reordering 𝕩 idv←xv⊏˜id←/idm←(0⊸≤∧<⟜nv)xv←𝕩-vi @@ -171,7 +172,7 @@ Parse ← {r‿vn‿i‿e←𝕨⋄nv←≠vn {i↩(𝕨⊏i)⌾(𝕩⊸⊏)i⋄e↩(𝕩⊏e)⌾(𝕨⊸⊏)e}´bp # Highlight all contents of a pair when error reporting g⊏˜↩gs←⍋gr⊏sl⋄gr↩g⊏rev⋄gi←⍋g # Send strand prefixes *‿ to the end 𝕩⊏˜↩g⋄r⊏˜↩gr⋄ir⊏˜↩gr⋄l↩(l⊏⍋gs)∾/gr⊏sr>sl - a←r≤¯3⋄ps←a