30% speedup of md5 by moving group -> <groups>

2008-02-10 23:09:13 -06:00 · 2008-02-10 23:09:13 -06:00 · 577e18b854
parent b6cc47d2b3
commit 577e18b854
1 changed files with 1 additions and 1 deletions
--- a/extra/crypto/md5/md5.factor
+++ b/extra/crypto/md5/md5.factor
@ -153,7 +153,7 @@ SYMBOL: old-d
    dup S44 64 9  [ I ] BCDA ;

 : (process-md5-block) ( block -- )
-    4 group [ le> ] map
+    4 <groups> [ le> ] map

    (process-md5-block-F)
    (process-md5-block-G)