Welcome to the CHICKEN Scheme pasting service

#;3> (define m `(((/ "") (GET "Hello World"))))
#;4> m
(((/ "") (GET "Hello World")))
#;5> (make-uri-matcher m)
#<procedure (f_792 method237 path238)>
#;6> ((make-uri-matcher m) 'GET "/")
#<procedure (f_709)>
#;7> (((make-uri-matcher m) 'GET "/"))
"Hello World"

(define (uri-match/spiffy routes)
  (let ((match (make-uri-matcher routes)))
    (lambda (continue)
      (let ((handler (match (request-method (current-request))
                      (request-uri (current-request)))))
        (printf "HAVE HANDLER ~A~%" handler)
        (if handler 
            (with-headers (default-response-headers)
                          (lambda () (or (handler) (continue))))
            (continue))))))

(vhost-map `((".*" . ,(uri-match/spiffy `(((/ "") (GET ,(lambda (c) (send-response
								     code: 200
								     reason: "OK"
								     body: (with-output-to-string (lambda () (waffle-sxml->html knodium-demo-page)))

(use spiffy spiffy-uri-match intarweb  uri-match uri-common)

(define routes
  `(((/ "")
     (GET ,(lambda (c) (send-status 200 "FOO"))))))

(vhost-map `((".*" . ,(uri-match/spiffy routes))))

(parameterize ((debug-log (current-output-port)))
  (start-server ))