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

db4
Doug Coleman 2008-02-10 23:09:13 -06:00
parent b6cc47d2b3
commit 577e18b854
1 changed files with 1 additions and 1 deletions

View File

@ -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)