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

[factor.git] / extra / multi-methods / multi-methods.factor

diff --git a/extra/multi-methods/multi-methods.factor b/extra/multi-methods/multi-methods.factor
index 2909d0b9e73f112f31cf7b64e93ba348b5263a81..74b3e0cd6ebd285f35358a08638af257c0d25988 100644 (file)
--- a/extra/multi-methods/multi-methods.factor
+++ b/extra/multi-methods/multi-methods.factor
@@ -22,7 +22,7 @@ SYMBOL: total
 : canonicalize-specializer-1 ( specializer -- specializer' )
     [
         [ class? ] filter
-        [ length iota <reversed> [ 1 + neg ] map ] keep zip
+        [ length <iota> <reversed> [ 1 + neg ] map ] keep zip
         [ length args [ max ] change ] keep
     ]
     [
@@ -112,7 +112,7 @@ SYMBOL: total
     swap predicate-def append ;
 
 : multi-predicate ( classes -- quot )
-    dup length iota <reversed>
+    dup length <iota> <reversed>
     [ picker 2array ] 2map
     [ drop object eq? ] assoc-reject
     [ [ t ] ] [