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

[factor.git] / basis / porter-stemmer / porter-stemmer.factor

diff --git a/basis/porter-stemmer/porter-stemmer.factor b/basis/porter-stemmer/porter-stemmer.factor
index e3cb186bf8057f5d45f2a13faf59c4c2cd2f43af..4214e67cd0e7e24c5af2f37f2d53019dd7895ea3 100644 (file)
--- a/basis/porter-stemmer/porter-stemmer.factor
+++ b/basis/porter-stemmer/porter-stemmer.factor
@@ -36,7 +36,7 @@ IN: porter-stemmer
     [ 0 0 ] dip skip-consonants (consonant-seq) ;
 
 : stem-vowel? ( str -- ? )
-    [ length iota ] keep [ consonant? ] curry all? not ;
+    [ length <iota> ] keep [ consonant? ] curry all? not ;
 
 : double-consonant? ( i str -- ? )
     over 1 < [