From 9f3f0f9ffe71ff48e49999480306ca1e0c44ba4e Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 17 Dec 2020 10:45:27 -0500
Subject: Fix error from Bins with atom right argument

---
 src/r.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3