From a0fa2d3b6e8780eca91f41c00101aea3fd45bd5b Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@trifocus.net>
Date: Mon, 28 Nov 2005 22:51:00 +0000
Subject: [PATCH] [[ -> {

---
 contrib/crypto/sha1.factor | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/contrib/crypto/sha1.factor b/contrib/crypto/sha1.factor
index 2f2a26e0ea..955b1a53cb 100644
--- a/contrib/crypto/sha1.factor
+++ b/contrib/crypto/sha1.factor
@@ -55,10 +55,10 @@ SYMBOL: K
 ! use this syntax eventually
 ! JUMP-TABLE: f 4 ( maximum )
 ! H{
-    ! [[ 0 [ >r over bitnot r> bitand >r bitand r> bitor ] ]]
-    ! [[ 1 [ bitxor bitxor ] ]]
-    ! [[ 2 [ 2dup bitand >r pick bitand >r bitand r> r> bitor bitor ] ]]
-    ! [[ 3 [ bitxor bitxor ] ]]
+    ! { 0 [ >r over bitnot r> bitand >r bitand r> bitor ] }
+    ! { 1 [ bitxor bitxor ] }
+    ! { 2 [ 2dup bitand >r pick bitand >r bitand r> r> bitor bitor ] }
+    ! { 3 [ bitxor bitxor ] }
 ! } f-table set
 
 ! J: 0 f >r over bitnot r> bitand >r bitand r> bitor ;