steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix catch usage in cont-responder examples

cvs
Chris Double 2005-09-21 02:10:51 +00:00
parent 29190ebc3e
commit 6b4227b022
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
contrib/cont-responder/eval-responder.factor
View File

@ -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

2
contrib/cont-responder/load.factor
View File

@ -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 ;