Removing more >r/r> usages

[factor.git] / basis / tools / deploy / deploy-tests.factor

diff --git a/basis/tools/deploy/deploy-tests.factor b/basis/tools/deploy/deploy-tests.factor
index a44f7e1f8985455d2323bc1918904a5aceab364e..e3fd9b9a7c159ea044a62211b6d601c387271862 100644 (file)
--- a/basis/tools/deploy/deploy-tests.factor
+++ b/basis/tools/deploy/deploy-tests.factor
@@ -7,13 +7,12 @@ urls math.parser ;
 : shake-and-bake ( vocab -- )\r
     [ "test.image" temp-file delete-file ] ignore-errors\r
     "resource:" [\r
-        >r vm\r
-        "test.image" temp-file\r
-        r> dup deploy-config make-deploy-image\r
+        [ vm "test.image" temp-file ] dip\r
+        dup deploy-config make-deploy-image\r
     ] with-directory ;\r
 \r
 : small-enough? ( n -- ? )\r
-    >r "test.image" temp-file file-info size>> r> cell 4 / * <= ;\r
+    [ "test.image" temp-file file-info size>> ] [ cell 4 / * ] bi* <= ;\r
 \r
 [ ] [ "hello-world" shake-and-bake ] unit-test\r
 \r