aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-12-25 16:08:35 -0500
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-12-25 16:08:35 -0500
commit334af0539ed52eb9c58e582ae5ff2bf25839aab9 (patch)
tree9c5419b661928c017f91e3d17b3e4a58609f6432
parent636d3c8149bef6cd78750985f2337648525040fa (diff)
Source position for SETH should be the target, not right of target
-rw-r--r--src/c.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/c.bqn b/src/c.bqn
index ff10e49f..00a27034 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -323,7 +323,7 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn
oc←or⊏∾idoc∾⟨0¨cn,ob,1¨bk,1+↕≠bk,43¨hq,44¨api,⥊⍉(11+l⊏aa)≍ll,ao,6¨dr,42¨qp,66¨al,vi-˜(al-1)⊏𝕩
24+oa⊏r,16+(fn/dy+2×fm⌈1=ny)+4×0<fa⊏er,¯1↓rc←7+nf⟩
# Instruction source positions
- MI←-⊸↓˜⟜≠∾g⊏˜⊢⋄oj←(rt-∘≠⊸⌽oi⌊1-˜≠i)Mi∾⟨1-˜at,oa,fa⟩
+ MI←-⊸↓˜⟜≠∾g⊏˜⊢⋄oj←(rt-∘≠⊸⌽oi⌊1-˜≠i)Mi∾⟨at-1‿0/˜≠¨ai‿hj,oa,fa⟩
ind←⟨oj,oj Mi fa⊏IT»¬ro∨ma⟩(¯1∾˜or⊏(≠rt)⊸⌽)⊸⊏¨i‿e
# Indices for multi-body blocks
cm∨↩(fx∧1≠cw)∨0<ut↩ut⌾(ch⊸/)ch # Dyad- and inverse-only generate as multiple