Paste: something's doing f write

Author:	vegai
Mode:	factor
Date:	Wed, 22 Apr 2009 12:16:10

Plain Text |

( scratchpad ) :c
[ call -> stop ]
handle-client
M\ http-server handle-client*
do-response
write-full-response
write-response-line
M\ object encoder-write
no-method
[
    63 getenv error-thread set-global
    continuation -> error-continuation set-global rethrow
]

Annotation: the css action

Author:	vegai
Mode:	factor
Date:	Wed, 22 Apr 2009 12:17:08

Plain Text |

: <css-action> ( -- action )
    <action>
    [ <response>
        200 >>code
        "work/websites/thehn/style.css" utf8 file-contents >>body
    ] >>display ;

New Annotation

Summary:
Author:
Mode:
Body: