From 6ce0c822ae744af14a772e59e3e5435cc442ff71 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Wed, 7 Apr 2021 19:13:20 -0400 Subject: Fix handling of lists in nothing statements: drop instruction goes after lists if tied --- src/c.bqn | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/c.bqn b/src/c.bqn index 0b584507..de713ece 100644 --- a/src/c.bqn +++ b/src/c.bqn @@ -222,9 +222,9 @@ Parse ← {r‿vn‿i‿e←𝕨⋄nv←≠vn fn↩¬fn⋄fa/˜↩fn⋄dy/˜↩fn⋄fl/˜↩fn # And remove them # Bytecode generation: numbers bc ordered by source location (after rev) oi - or←⍋oi←idor∾g⊏˜∾⟨cn,cn,bk,bk,dr,2/l,af/at,oa+1⌈oa⊏os,fl,rt⟩ - bc←or⊏∾idbc∾⟨0¨cn,ob,15¨bk,1+↕≠bk,14¨dr,⥊⍉(3+l⊏aa)≍ll - 11⌈(11-1+⊑bG)+(af/ai)⊏ma+𝕩,5+oa⊏r,(⊢+9×10⊸=)16+dy-7×fa⊏er,25¨rt⟩ + or←⍋oi←idor∾g⊏˜∾⟨cn,cn,bk,bk,2/l,af/at,oa+1⌈oa⊏os,fl,dr,rt⟩ + bc←or⊏∾idbc∾⟨0¨cn,ob,15¨bk,1+↕≠bk,⥊⍉(3+l⊏aa)≍ll + 11⌈(11-1+⊑bG)+(af/ai)⊏ma+𝕩,5+oa⊏r,(⊢+9×10⊸=)16+dy-7×fa⊏er,14¨dr,25¨rt⟩ # Instruction source positions MI←-⊸↓˜⟜≠∾g⊏˜⊢⋄oj←(rt-∘≠⊸⌽oi⌊1-˜≠i)Mi∾⟨1-˜af/at,oa,fa⟩ ind←⟨oj,oj Mi fa⊏IT»¬ro∨ma⟩(¯1∾˜or⊏(≠rt)⊸⌽)⊸⊏¨i‿e -- cgit v1.2.3