use with-variable in some places with-scope was used.

[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 e53ca0a76d20559d9af1fcfbbf0820641778972a..26af9482b38b328b2a2be014100646dd66e34b67 100644 (file)
--- a/basis/tools/deploy/deploy-tests.factor
+++ b/basis/tools/deploy/deploy-tests.factor
@@ -73,7 +73,7 @@ os macosx? [
     "tools.deploy.test.3"
     "tools.deploy.test.4"
 } [
-    [ ] swap [
+    { } swap [
         shake-and-bake
         run-temp-image
     ] curry unit-test
@@ -91,16 +91,14 @@ M: quit-responder call-responder*
     quit-responder "quit" add-responder ;
 
 : test-httpd ( responder -- )
-    [
-        main-responder set
+    main-responder [
         <http-server>
             0 >>insecure
             f >>secure
         start-server
         servers>> first addr>> port>>
         dup number>string "port-number" temp-file ascii set-file-contents
-    ] with-scope
-    "port" set ;
+    ] with-variable "port" set ;
 
 { } [
     <dispatcher>