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

[factor.git] / basis / http / http-tests.factor

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 ;