checksums.sha: minor speedup.

diff --git a/basis/checksums/sha/sha.factor b/basis/checksums/sha/sha.factor
index b80cca21ab779107726a3ddda63fa2ffc2d2bc91..182dbe5e4256bfb05139ebfd7d28884e6ebb94c9 100644 (file)
--- a/basis/checksums/sha/sha.factor
+++ b/basis/checksums/sha/sha.factor
@@ -369,7 +369,7 @@ M: sha-256 checksum-stream ( stream checksum -- byte-array )
         { 1 [ bitxor bitxor ] }
         { 2 [ 2dup bitand [ pick bitand [ bitand ] dip ] dip bitor bitor ] }
         { 3 [ bitxor bitxor ] }
-    } case ;
+    } case ; inline
 
 :: inner-loop ( n H W K -- temp )
     a H nth-unsafe :> A