From 48d8d44d801e05577195570ddb649dcce5063df5 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 3 Jul 2008 20:50:08 -0500
Subject: [PATCH] Tweak deploy descriptors

---
 extra/bunny/deploy.factor               | 16 ++++++++--------
 extra/sudoku/deploy.factor              |  2 +-
 extra/tools/deploy/deploy-tests.factor  | 15 +++++++++------
 extra/tools/deploy/test/4/deploy.factor |  2 +-
 extra/tools/deploy/test/5/deploy.factor |  4 ++--
 5 files changed, 21 insertions(+), 18 deletions(-)

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 }
-- 
2.34.1