core: Add the shuffler words but without primitives.

[factor.git] / basis / checksums / sha / sha-tests.factor

diff --git a/basis/checksums/sha/sha-tests.factor b/basis/checksums/sha/sha-tests.factor
index ef211821d6ae671cb6ca9e6bc6ad86e62afc6e1d..8ef558bb0b9169c6366622c66849cb1cd5c4e899 100644 (file)
--- a/basis/checksums/sha/sha-tests.factor
+++ b/basis/checksums/sha/sha-tests.factor
@@ -84,7 +84,7 @@ CONSTANT: bytes-b B{ 1 2 3 4 5 6 7 8 }
 ERROR: checksums-differ algorithm seq incremental-checksum one-go-checksum ;
 : compare-checksum-calculations ( algorithm seq -- ? )
     2dup [ incremental-checksum ] [ one-go-checksum ] 2bi 2dup = [
-        2drop 2drop t
+        4drop t
     ] [
         checksums-differ
     ] if ;