core: Add the shuffler words but without primitives.

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

diff --git a/basis/checksums/ripemd/ripemd.factor b/basis/checksums/ripemd/ripemd.factor
index b5f05b57ccf57a0d317c662da18251b2d0efc94c..dde039c792b74ebdacb4f2c116207fed0871d2f4 100644 (file)
--- a/basis/checksums/ripemd/ripemd.factor
+++ b/basis/checksums/ripemd/ripemd.factor
@@ -39,7 +39,7 @@ M: ripemd-160 initialize-checksum-state drop <ripemd-160-state> ;
 : F ( x y z -- out ) bitxor bitxor ;  inline
 : G ( x y z -- out ) pick bitnot swap [ bitand ] 2bi@ bitor ; inline
 : H ( x y z -- out ) [ bitnot bitor ] [ bitxor ] bi* ; inline
-: I ( x y z -- out ) swap over bitnot [ bitand ] 2bi@ bitor ; inline
+: I ( x y z -- out ) tuck bitnot [ bitand ] 2bi@ bitor ; inline
 : J ( x y z -- out ) bitnot bitor bitxor ; inline
 
 CONSTANT: T11 0x00000000