From 7732a337032257b72ee09ee8b26fd79c5a539668 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 3 May 2021 21:30:01 -0400
Subject: =?UTF-8?q?Don't=20use=20arithmetic=20=E2=8C=8A=E2=8C=88=20on=20po?=
 =?UTF-8?q?ssible=20infinities=20in=20=5FrankOp=5F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index 15043042..72f64beb 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -660,7 +660,8 @@ _depthOp_←{
   𝕨 n _d 𝕩
 }
 _rankOp_←{
-  k←𝕨(Pair○= (0≤⊢)◶⟨⌊⟜-,0⌈-⟩¨ 𝔾_ranks)𝕩
+  Min←<◶⊢‿⊣
+  k←𝕨(Pair○= (0≤⊢)◶⟨Min⟜-,⊣-Min⟩¨ 𝔾_ranks)𝕩
   Enc←(>⟜0×1+≥⟜=)◶⟨<⊢,EncCell,<_table⊢⟩
   Merge ((0⊑k)Enc𝕨) 𝔽_each ((1-˜≠)⊸⊑k)Enc𝕩
 }
-- 
cgit v1.2.3