Language change: tuple slot setter words with stack effect ( value object -- ) are...

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

diff --git a/basis/checksums/sha/sha.factor b/basis/checksums/sha/sha.factor
index ba85add03c63727406fb6d650b5f745b2b911e68..af0f95fa76a71d5f5c72eadf646f992b23b1e655 100644 (file)
--- a/basis/checksums/sha/sha.factor
+++ b/basis/checksums/sha/sha.factor
@@ -395,7 +395,7 @@ M: sha-256 checksum-stream ( stream checksum -- byte-array )
     state [ H [ w+ ] 2map ] change-H drop ; inline
 
 M:: sha1-state checksum-block ( bytes state -- )
-    bytes prepare-sha1-message-schedule state (>>W)
+    bytes prepare-sha1-message-schedule state W<<
 
     bytes
     state [ H>> clone ] [ W>> ] [ K>> ] tri state process-sha1-chunk ;