Avoid applying function 𝕨 to 𝕩 in Repeat

1 files changed, 4 insertions, 3 deletions

diff --git a/src/r.bqn b/src/r.bqn
index 7e8a7ec1..05245221 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -580,9 +580,10 @@ _repeat_←{
   n←𝕨𝔾𝕩
   l←u←0
   {"⍟: Repetition numbers in 𝕨 must be integers"!Int𝕩⋄l↩l⌊𝕩⋄u↩u⌈𝕩}⚇0 n
-  a←𝕩⋄_p←{𝔽∘⊣`⟨a⟩∾↕0+𝕩}
-  pos←(𝕨𝔽 ⊢)_p u
-  neg←(𝕨𝔽⁼⊢)_p-l
+  b←𝕨{𝕏⊣}˙⊘{𝕨˙{𝔽𝕏⊣}}0
+  i←⟨𝕩⟩⋄P←B⊸{𝕎`i∾↕𝕩}
+  pos←𝕗 P u
+  neg←𝕗 Inverse⊸P -l
   (|⊑<⟜0⊑pos‿neg˙)⚇0 n
 }