Fix Rank operator with atomic argument

1 files changed, 1 insertions, 1 deletions

diff --git a/src/r.bqn b/src/r.bqn
index 1d03c2d6..adc8e200 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -244,7 +244,7 @@ _rankOp_←{
     c←×´s←𝕨Cell𝕩
     f⥊⊑⟜(⥊𝕩)⌜∘((s⥊↕c)+c×⊢)⌜↕×´f
   }
-  Enc↩(>⟜0+≥⟜=)◶⟨<⊢,Enc,<⌜⊢⟩
+  Enc↩(>⟜0×1+≥⟜=)◶⟨<⊢,Enc,<⌜⊢⟩
   > ((0⊑k)Enc𝕨) 𝔽¨ ((1-˜≠)⊸⊑k)Enc𝕩
 }
 ⎉ ← _rankOp_