: add-quit-action
<action>
- [ stop-server "Goodbye" "text/html" <content> ] >>display
+ [ stop-this-server "Goodbye" "text/html" <content> ] >>display
"quit" add-responder ;
-: test-db "test.db" temp-file sqlite-db ;
+: test-db "test.db" temp-file <sqlite-db> ;
[ test-db drop delete-file ] ignore-errors
"" add-responder
add-quit-action
<dispatcher>
- <action> "a" add-main-responder
+ <action> "" add-responder
"d" add-responder
test-db <db-persistence>
main-responder set