checksums.sha: minor speedup.

2014-03-04 10:05:03 -08:00 · 2014-03-04 10:05:03 -08:00 · 04a4e0ed5c
parent 14f43d8cb8
commit 04a4e0ed5c
1 changed files with 1 additions and 1 deletions
--- 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