Only compute inverse if needed in Repeat

1 files changed, 1 insertions, 1 deletions

diff --git a/src/r.bqn b/src/r.bqn
index 05245221..6c3678ed 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -583,7 +583,7 @@ _repeat_←{
   b←𝕨{𝕏⊣}˙⊘{𝕨˙{𝔽𝕏⊣}}0
   i←⟨𝕩⟩⋄P←B⊸{𝕎`i∾↕𝕩}
   pos←𝕗 P u
-  neg←𝕗 Inverse⊸P -l
+  neg←𝕗 0⊸<◶⟨i,Inverse⊸P⟩ -l
   (|⊑<⟜0⊑pos‿neg˙)⚇0 n
 }