From 79a3de138fa0ab737aa30e05e8d8fae89f90a77f Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 5 Jun 2021 08:37:28 -0400
Subject: Avoid out-of-range selection in empty multidimensional Rotate

---
 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 499f05d5..8e299aa5 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -294,7 +294,7 @@ Reverse←{
 }
 RotReduce ← {
   "𝕨⌽𝕩: 𝕨 must consist of integers" ! Int𝕨
-  𝕨-𝕩×⌊𝕨÷𝕩+0=𝕩
+  𝕩+↩0=𝕩 ⋄ 𝕨-𝕩×⌊𝕨÷𝕩
 }
 RotL ← ↓∾↑
 Rot ← (1==∘⊢)◶⟨RotL⟜(↕≠)⊏⊢,RotL⟩
-- 
cgit v1.2.3