From 577e18b854c88a9f542fe75132344338f0bcc22d Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 10 Feb 2008 23:09:13 -0600
Subject: [PATCH] 30% speedup of md5 by moving group -> <groups>

---
 extra/crypto/md5/md5.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/crypto/md5/md5.factor b/extra/crypto/md5/md5.factor
index c95b3f4477..fe215e32db 100644
--- 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)