aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/r.bqn4
1 files changed, 2 insertions, 2 deletions
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} 𝕩
}