From d11e585a645e8e9d642043d06c2f61535f8ec0d0 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 19 May 2021 13:18:44 -0400
Subject: =?UTF-8?q?Fix=20behavior=20of=20=CB=98=20when=20both=20arguments?=
 =?UTF-8?q?=20are=20units?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index 38b1aa11..58f40c5d 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -578,7 +578,7 @@ EncCell ← {
 _cells ← {
   F←𝔽 ⋄ _m←{𝔽⌜⊘(𝔽¨)_fillByPure_𝔽○(1⊸EncCell)}
   D←{ "˘: Argument lengths don't agree" ! 𝕩=○≠𝕨 ⋄ 𝕨 F _m 𝕩 }
-  Merge 𝕨 2⊸×⊸+○(0<=)◶⟨ToArray F,{𝕨⊸F _m𝕩},{F⟜𝕩_m𝕨},D⟩ 𝕩
+  Merge 𝕨 2⊸×⊸+○(0<=)◶⟨<F,{𝕨⊸F _m𝕩},{F⟜𝕩_m𝕨},D⟩ 𝕩
 }
 _insert←{
   "˝: 𝕩 must have rank at least 1" ! 1≤=𝕩
-- 
cgit v1.2.3