aboutsummaryrefslogtreecommitdiff
path: root/c.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-07-23 20:18:32 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-07-23 20:18:32 -0400
commit527ba44befb81f20bfc5389d4bcb448cb8f7190d (patch)
tree602e5f71532d805f0990f0908ed19cd8738729a2 /c.bqn
parentb55bb1c48d83af778694dc40f11c69aaa2667c85 (diff)
Don't mistake a right operand for a left argument
Diffstat (limited to 'c.bqn')
-rwxr-xr-xc.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/c.bqn b/c.bqn
index f0392f68..bc53a5bc 100755
--- a/c.bqn
+++ b/c.bqn
@@ -158,7 +158,7 @@ DParse ← {nv‿r𝕊𝕩:
tf←(a≤○(⌈`(1+↕∘≠)⊸×)ps)∧(⊢∧2(|<≤)ps(⊢-⌈`∘×)+`)¬ro
opa←op>1↓0∾˜ps∨a⋄os←⌽↕∘≠⊸(⊣-⌈`∘×)⌽¬ro
oa←⌽/opa⋄fa←/(tf∨¬tr)∧(ro∧1⌽opa)<(r=1)∨op<¯1⌽opa
- dy←fa⊏1↓0∾˜(𝕩≠⊑bO)∧(tr∧r≥0)∨r=0
+ dy←fa⊏1↓0∾˜(𝕩≠⊑bO)∧(tr∧r≥0)∨ro<r=0
n←𝕩≥vi+nv⋄id←/(n<𝕩≥vi)∨𝕩∊bI⋄cn←/n∨𝕩≤¯1⊑bC⋄u←⍷ob←cn⊏𝕩
lo←(o/𝕩)=4⊑bB⋄l←/𝕩=5⊑bB⋄ll←1+lo/1(↓--⊸↓)(o∾1)/+`(s∾0)-(1∾o)∧ps∾1
dr←/s>o+`⊸⊏0∾lo⋄rt←/𝕩=2⊑bB