factor: trim using lists

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

diff --git a/basis/checksums/md5/md5.factor b/basis/checksums/md5/md5.factor
index 80c136b2077afcbaff123d656fb21701007a52a2..bc8481f5ef603899b1bbc0b6da14fd11d7c66404 100644 (file)
--- a/basis/checksums/md5/md5.factor
+++ b/basis/checksums/md5/md5.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2006, 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors alien.c-types alien.data byte-arrays checksums
-checksums.common combinators fry grouping hints kernel
-kernel.private literals locals macros math math.bitwise
+checksums.common combinators grouping hints kernel
+kernel.private literals math math.bitwise
 math.functions sequences sequences.private specialized-arrays ;
 SPECIALIZED-ARRAY: uint
 IN: checksums.md5
@@ -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 )