From fec8c970780cad3d31613fcff955a98a9ca12eb8 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Fri, 23 Apr 2021 17:28:37 -0400
Subject: =?UTF-8?q?Use=20=5Fperv=20instead=20of=20=E2=9A=870=20in=20=5Frep?=
 =?UTF-8?q?eat=5F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index 075efa3b..b3b6f930 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -700,11 +700,11 @@ _repeat_←{
   n←𝕨𝔾𝕩
   Multi←{
     l←u←0
-    {"⍟: Repetition numbers in 𝕨𝔾𝕩 must be integers"!Int𝕩⋄l↩l⌊𝕩⋄u↩u⌈𝕩}⚇0 n
+    {"⍟: Repetition numbers in 𝕨𝔾𝕩 must be integers"!Int𝕩⋄l↩l⌊𝕩⋄u↩u⌈𝕩}_perv n
     i←⟨𝕩⟩⋄P←B⊸{𝕎`i∾↕𝕩}
     pos←f P u
     neg←f 0⊸<◶⟨i,Inverse⊸P⟩ -l
-    (|⊑<⟜0⊑pos‿neg˙)⚇0 n
+    (|⊑<⟜0⊑pos‿neg˙)_perv n
   }
   (Nat n)◶Multi‿{𝕩(B f)∘⊢´↕n} 𝕩
 }
-- 
cgit v1.2.3