From 4de55d071684755d98ec3f4a2792c42ab5e2ebb3 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 8 Mar 2008 00:13:35 -0600
Subject: [PATCH] fix typos

---
 extra/crypto/sha1/sha1.factor | 2 +-
 extra/crypto/sha2/sha2.factor | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/crypto/sha1/sha1.factor b/extra/crypto/sha1/sha1.factor
index e2398311b7..efccbc6e5b 100644
--- a/extra/crypto/sha1/sha1.factor
+++ b/extra/crypto/sha1/sha1.factor
@@ -6,7 +6,7 @@ IN: crypto.sha1
 
 ! Implemented according to RFC 3174.
 
-SYMBOL: h0 h1 h2 h3 h4 A B C D E w K ;
+SYMBOLS: h0 h1 h2 h3 h4 A B C D E w K ;
 
 : get-wth ( n -- wth ) w get nth ; inline
 : shift-wth ( n -- x ) get-wth 1 bitroll-32 ; inline
diff --git a/extra/crypto/sha2/sha2.factor b/extra/crypto/sha2/sha2.factor
index 07d38b83bb..6935db82a9 100644
--- a/extra/crypto/sha2/sha2.factor
+++ b/extra/crypto/sha2/sha2.factor
@@ -4,7 +4,7 @@ IN: crypto.sha2
 
 <PRIVATE
 
-SYMBOL: vars M K H S0 S1 process-M word-size block-size >word ;
+SYMBOLS: vars M K H S0 S1 process-M word-size block-size >word ;
 
 : a 0 ;
 : b 1 ;