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

[factor.git] / basis / checksums / md5 / md5.factor

diff --git a/basis/checksums/md5/md5.factor b/basis/checksums/md5/md5.factor
index 80c136b2077afcbaff123d656fb21701007a52a2..391344bc875956fbfb59edf9d5792135b74775da 100644 (file)
--- a/basis/checksums/md5/md5.factor
+++ b/basis/checksums/md5/md5.factor
@@ -30,7 +30,7 @@ M: md5 initialize-checksum-state drop <md5-state> ;
     [ old-state<< ] [ state<< ] bi ; inline
 
 CONSTANT: T $[
-    80 iota [ sin abs 32 2^ * >integer ] uint-array{ } map-as
+    80 <iota> [ sin abs 32 2^ * >integer ] uint-array{ } map-as
 ]
 
 :: F ( X Y Z -- FXYZ )