From 3fd1b67c25fd68aa69c9b0e7d86f8e85a8e6a15b Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 8 Apr 2021 13:52:27 -0400
Subject: Avoid producing a NaN during Rotate

---
 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 b4517051..a2d15187 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -146,7 +146,7 @@ Reverse←{
 }
 Rot←{
   "𝕨⌽𝕩: 𝕨 must consist of integers" ! Int𝕨
-  l←≠𝕩 ⋄ 𝕨-↩l×⌊𝕨÷l ⋄ ((𝕨+⊢-l×(l-𝕨)≤⊢)⌜↕l) ⊏ 𝕩
+  l←≠𝕩 ⋄ 𝕨-↩l×⌊𝕨÷l+l=0 ⋄ ((𝕨+⊢-l×(l-𝕨)≤⊢)⌜↕l) ⊏ 𝕩
 }
 
 Prefixes←{
-- 
cgit v1.2.3