Changeset 33282 in project
- Timestamp:
- 03/16/16 21:06:09 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
demonstrations/spiffy/webserver.scm
r20625 r33282 1 1 (use spiffy simple-directory-handler 2 spiffy-uri-match intarweb uri-common sxml-transforms) 2 spiffy-uri-match intarweb uri-common 3 sxml-serializer) 3 4 4 5 (define (send-sxml-response sxml) 5 6 (with-headers `((connection close)) 6 (lambda () 7 (write-logged-response))) 8 (with-output-to-port (response-port (current-response)) 9 (lambda () 10 (SRV:send-reply (pre-post-order sxml universal-conversion-rules))))) 7 (lambda () 8 (write-logged-response))) 9 (serialize-sxml sxml 10 output: (response-port (current-response)))) 11 11 12 12 (define my-custom-routes
Note: See TracChangeset
for help on using the changeset viewer.