Cleanup

2008-11-26 04:25:18 -06:00 · 2008-11-26 04:25:18 -06:00 · 498761376a
parent d927ed5620
commit 498761376a
1 changed files with 1 additions and 1 deletions
--- 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