Cleanup

diff --git a/basis/checksums/common/common.factor b/basis/checksums/common/common.factor
index 1f25efef24c72e6a5c03de1a3790bed5d902a642..7d5f34777d74acc1f3de92d279272cda19e6ee94 100644 (file)
--- a/basis/checksums/common/common.factor
+++ b/basis/checksums/common/common.factor
@@ -18,4 +18,4 @@ SYMBOL: bytes-read
     ] "" make 64 group ;
 
 : update-old-new ( old new -- )
-    [ get >r get r> ] 2keep >r >r w+ dup r> set r> set ; inline
+    [ [ get ] bi@ w+ dup ] 2keep [ set ] bi@ ; inline