(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))))))