Refactor all usages of >r/r> in core to use dip, 2dip, 3dip

[factor.git] / core / checksums / crc32 / crc32.factor

diff --git a/core/checksums/crc32/crc32.factor b/core/checksums/crc32/crc32.factor
index e1f0b9417bf3c958c66a730f032b582ce4f57344..7cff22de19bedd11402b1d1f6de7d504cce40b33 100644 (file)
--- a/core/checksums/crc32/crc32.factor
+++ b/core/checksums/crc32/crc32.factor
@@ -11,7 +11,7 @@ IN: checksums.crc32
 
 256 [
     8 [
-        dup even? >r 2/ r> [ crc32-polynomial bitxor ] unless
+        [ 2/ ] [ even? ] bi [ crc32-polynomial bitxor ] unless
     ] times >bignum
 ] map 0 crc32-table copy
 
@@ -24,7 +24,7 @@ SINGLETON: crc32
 
 INSTANCE: crc32 checksum
 
-: init-crc32 drop >r HEX: ffffffff dup r> ; inline
+: init-crc32 drop [ HEX: ffffffff dup ] dip ; inline
 
 : finish-crc32 bitxor 4 >be ; inline