From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 4 Jul 2008 01:50:08 +0000 (-0500)
Subject: Tweak deploy descriptors
X-Git-Tag: 0.94~2934
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=48d8d44d801e05577195570ddb649dcce5063df5

Tweak deploy descriptors
---

diff --git a/extra/bunny/deploy.factor b/extra/bunny/deploy.factor
index 2be82066aa..55ac991df1 100755
--- a/extra/bunny/deploy.factor
+++ b/extra/bunny/deploy.factor
@@ -1,15 +1,15 @@
 USING: tools.deploy.config ;
 H{
+    { deploy-io 3 }
+    { deploy-word-defs? f }
     { deploy-reflection 1 }
-    { deploy-math? t }
-    { deploy-ui? t }
-    { deploy-name "Bunny" }
     { deploy-compiler? t }
-    { deploy-threads? t }
-    { deploy-word-defs? f }
-    { deploy-c-types? f }
-    { deploy-io 3 }
-    { "stop-after-last-window?" t }
     { deploy-random? f }
+    { deploy-c-types? f }
+    { deploy-name "Bunny" }
     { deploy-word-props? f }
+    { deploy-threads? t }
+    { "stop-after-last-window?" t }
+    { deploy-ui? t }
+    { deploy-math? t }
 }
diff --git a/extra/sudoku/deploy.factor b/extra/sudoku/deploy.factor
index ba1ac1a32a..3d9101b19e 100755
--- a/extra/sudoku/deploy.factor
+++ b/extra/sudoku/deploy.factor
@@ -5,7 +5,7 @@ H{
     { deploy-name "Sudoku" }
     { deploy-threads? f }
     { deploy-compiler? t }
-    { deploy-math? f }
+    { deploy-math? t }
     { deploy-c-types? f }
     { deploy-io 2 }
     { deploy-reflection 1 }
diff --git a/extra/tools/deploy/deploy-tests.factor b/extra/tools/deploy/deploy-tests.factor
index cbc4f4e5ac..86691e89a0 100755
--- a/extra/tools/deploy/deploy-tests.factor
+++ b/extra/tools/deploy/deploy-tests.factor
@@ -63,13 +63,16 @@ namespaces continuations layouts accessors ;
     ] curry unit-test
 ] each
 
-USING: http.client furnace.actions http.server http.server.dispatchers
+USING: http.client http.server http.server.dispatchers
 http.server.responses http.server.static io.servers.connection ;
 
-: add-quit-action
-    <action>
-        [ stop-server "Goodbye" "text/html" <content> ] >>display
-    "quit" add-responder ;
+SINGLETON: quit-responder
+
+M: quit-responder call-responder*
+    2drop stop-server "Goodbye" "text/html" <content> ;
+
+: add-quot-responder ( responder -- responder )
+    quit-responder "quit" add-responder ;
 
 : test-httpd ( -- )
     #! Return as soon as server is running.
@@ -81,7 +84,7 @@ http.server.responses http.server.static io.servers.connection ;
 [ ] [
     [
         <dispatcher>
-            add-quit-action
+            add-quot-responder
             "resource:extra/http/test" <static> >>default
         main-responder set
 
diff --git a/extra/tools/deploy/test/4/deploy.factor b/extra/tools/deploy/test/4/deploy.factor
index 894d6aa62e..65ead56e2b 100644
--- a/extra/tools/deploy/test/4/deploy.factor
+++ b/extra/tools/deploy/test/4/deploy.factor
@@ -1,6 +1,6 @@
 USING: tools.deploy.config ;
 H{
-    { deploy-math? f }
+    { deploy-math? t }
     { deploy-reflection 1 }
     { deploy-io 2 }
     { deploy-c-types? f }
diff --git a/extra/tools/deploy/test/5/deploy.factor b/extra/tools/deploy/test/5/deploy.factor
index 87536457b0..bb4580b7ae 100644
--- a/extra/tools/deploy/test/5/deploy.factor
+++ b/extra/tools/deploy/test/5/deploy.factor
@@ -1,10 +1,10 @@
 USING: tools.deploy.config ;
 H{
     { deploy-math? t }
-    { deploy-reflection 2 }
+    { deploy-reflection 1 }
     { deploy-io 3 }
     { deploy-c-types? f }
-    { deploy-random? t }
+    { deploy-random? f }
     { deploy-ui? f }
     { deploy-name "tools.deploy.test.5" }
     { deploy-word-defs? f }