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

diff --git a/basis/http/http-tests.factor b/basis/http/http-tests.factor
index 5067e7ea054199a55c6fb351f1ee8c9a27372e1e..444edc3157091eae48393c130096a8e2167b3e4e 100644 (file)
--- a/basis/http/http-tests.factor
+++ b/basis/http/http-tests.factor
@@ -237,13 +237,12 @@ http.server.dispatchers db.tuples ;
 ] unit-test
 
 : test-with-dispatcher ( dispatcher quot -- )
-    '[
-        main-responder set
+    [ main-responder ] dip '[
         <http-server> 0 >>insecure f >>secure
         [
             server-addrs random "addr" set @
         ] with-threaded-server
-    ] with-scope ; inline
+    ] with-variable ; inline
 
 USING: locals ;
 

diff --git a/basis/nmake/nmake.factor b/basis/nmake/nmake.factor
index 8050d2d3fe773e5121722024f56413496f64a683..e9090f9101aac3b954334ea385afd7813719fa57 100644 (file)
--- a/basis/nmake/nmake.factor
+++ b/basis/nmake/nmake.factor
@@ -32,13 +32,9 @@ MACRO: finish-nmake ( exemplars -- quot )
     length [ firstn ] curry ;
 
 :: nmake ( quot exemplars -- )
-    [
-        exemplars
-        [ 0 swap new-resizable ] map
-        building-seq set
-
+    exemplars [ 0 swap new-resizable ] map
+    building-seq [
         quot call
-
         building-seq get
         exemplars [ [ like ] 2map ] [ finish-nmake ] bi
-    ] with-scope ; inline
+    ] with-variable ; inline

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>