calculate a magic number in md5

2009-04-25 19:22:46 -05:00 · 2009-04-25 19:22:46 -05:00 · 90d40a7650
parent 2484ea07b0
commit 90d40a7650
1 changed files with 1 additions and 1 deletions
--- a/basis/checksums/md5/md5.factor
+++ b/basis/checksums/md5/md5.factor
@ -14,7 +14,7 @@ IN: checksums.md5
 SYMBOLS: a b c d old-a old-b old-c old-d ;

 : T ( N -- Y )
-    sin abs 4294967296 * >integer ; foldable
+    sin abs 32 2^ * >integer ; foldable

 : initialize-md5 ( -- )
    0 bytes-read set