From 6b4227b02251a8a49b3ee468d9daee7a163aaeb7 Mon Sep 17 00:00:00 2001
From: Chris Double <chris.double@double.co.nz>
Date: Wed, 21 Sep 2005 02:10:51 +0000
Subject: [PATCH] Fix catch usage in cont-responder examples

---
 contrib/cont-responder/eval-responder.factor | 7 +++----
 contrib/cont-responder/load.factor           | 2 +-
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/contrib/cont-responder/eval-responder.factor b/contrib/cont-responder/eval-responder.factor
index cabd32c413..de1c9e544b 100644
--- a/contrib/cont-responder/eval-responder.factor
+++ b/contrib/cont-responder/eval-responder.factor
@@ -119,10 +119,10 @@ USE: sequences
     "browser" "responder" set
     <table border= "1" table> 
       <tr> <th colspan= "2" th> "Source" write </th> </tr>
-      <tr> <td colspan= "2" td> [ [ parse ] [ [ "No such word" write ] [ car see ] ifte ] catch ] with-simple-html-output </td> </tr>
+      <tr> <td colspan= "2" td> [ [ parse ] catch [ "No such word" write ] [ car see ] ifte ] with-simple-html-output </td> </tr>
       <tr> <th> "Apropos" write </th> <th> "Usages" write </th> </tr>
       <tr> <td valign= "top" td> [ apropos ] with-simple-html-output </td> 
-           <td valign= "top" td> [ [ parse ] [ [ "No such word" write ] [ car usages. ] ifte ] catch ] with-simple-html-output </td>
+           <td valign= "top" td> [ [ parse ] catch [ "No such word" write ] [ car usages. ] ifte ] with-simple-html-output </td>
       </tr>
     </table>
   ] bind ;
@@ -229,9 +229,8 @@ USE: sequences
   [
     [ 
       run-eval-requester 
-    ] [
-      dup [ show-message-page ] [ drop ] ifte
     ] catch 
+    dup [ show-message-page ] [ drop ] ifte
   ] forever ;
 
 "eval" [ [ ] "None" [ ] <evaluator> eval-responder ] install-cont-responder
diff --git a/contrib/cont-responder/load.factor b/contrib/cont-responder/load.factor
index 21646b40d4..2f915a0538 100644
--- a/contrib/cont-responder/load.factor
+++ b/contrib/cont-responder/load.factor
@@ -50,5 +50,5 @@ USE: parser
   #! in factor core.
   "../../library/httpd/cont-responder.factor" run-file ;
 DEFER: la
-: la [ 8888 httpd ] [ dup . flush [ la ] when* ] catch ;
+: la 8888 httpd ;
 : lb [ la "httpd thread exited.\n" write flush ] in-thread  ;