Don't use arithmetic ⌊⌈ on possible infinities in _rankOp_

1 files changed, 2 insertions, 1 deletions

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𝕩
 }