core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota...

[factor.git] / extra / math / primes / solovay-strassen / solovay-strassen.factor

diff --git a/extra/math/primes/solovay-strassen/solovay-strassen.factor b/extra/math/primes/solovay-strassen/solovay-strassen.factor
index 3daad08e6f29b61a45803be6a65ff206be986c38..ac4eb7076848f3bab65aa56023d920ee86986a1d 100644 (file)
--- a/extra/math/primes/solovay-strassen/solovay-strassen.factor
+++ b/extra/math/primes/solovay-strassen/solovay-strassen.factor
@@ -9,7 +9,7 @@ IN: math.primes.solovay-strassen
 <PRIVATE
 
 :: (solovay-strassen) ( n numtrials -- ? )
-    numtrials iota [
+    numtrials <iota> [
         drop
         n 1 - [1,b) random :> a
         a n simple-gcd 1 > [ t ] [