Paste: untested web example

Author: doublec
Mode: factor
Date: Fri, 27 Nov 2009 05:21:46
Plain Text | 
TUPLE: foo < dispatcher ;

foo new-dispatcher 
  <action> 
    [ "hello world" "text/plain" <content> ] >>display
  "hello" add-responder

main-responder set-global

8888 httpd

New Annotation

Summary:
Author:
Mode:
Body: