aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/r.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/r.bqn b/src/r.bqn
index 89f475c0..d41c9630 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -484,7 +484,7 @@ _bins←{
cw←lw 𝔽○(⊑⟜(⥊𝕨)) _getCellCmp 0
"⍋ or ⍒: 𝕨 must be sorted" ! 0⊸<◶⟨1,∧´0≤˜·cw⟜(lw⊸+)⌜lw×↕∘-⟜1⟩≠𝕨
cx←c-˜=𝕩
- sx←cx Cell 𝕩 ⋄ lc←sw CmpLen sx
+ sx←cx Cell ToArray 𝕩 ⋄ lc←sw CmpLen sx
cc ← (⊑⟜(⥊𝕨))⊸𝔽⟜(⊑⟜(⥊𝕩)) _getCellCmp´ lc
B←(×´sw)⊸×⊸Cc≤0˜
(≠𝕨)⊸{B⟜𝕩 _binSearch 𝕨}⌜ (×´sx) × ⥊⟜(↕×´)⊑⟜(≢𝕩)⌜↕cx