(define ((sack-spiffy-handler handler not-found) _)
  ;;current-request would have to be normalized to a sack-request or
  ;;sth. 
  (handler (current-request)))

(define ((sack-spiffy-listener port) handler)
  (handle-not-found
   (let ((old-not-found (handle-not-found)))
     (sack-spiffy-handler handler old-not-found)))
  (start-server port: port))

(define (sack-spiffy-responder code headers body)
  (send-response code: code body: body header: headers))

(define (sack-spiffy-binding port)
  (values (sack-spiffy-listener port) sack-spiffy-responder))