Don't mistake a right operand for a left argument

2 files changed, 3 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
diff --git a/test/bcases.bqn b/test/bcases.bqn
index 261e25a3..4a1a51b6 100644
--- a/test/bcases.bqn
+++ b/test/bcases.bqn
@@ -31,4 +31,6 @@
 3    % 2{𝕩÷𝕨}6
 1    % {q←𝕩⋄{(q∧q)+(𝕩∨𝕩)}¬q}÷4
 -1   % (⊑⟨×⟩){𝔽}¯2
+4    % (⊑⟨×⟩){𝕩𝔽𝕩}¯2
 6    % +´(ט)‿-{𝕎𝕩}¨3
+5    % 2+⍟3-1