(import (scheme base)
        spiffy
        srfi-18)

(define (app)
  (parameterize ((error-log "/tmp/server-error.log")
                 (access-log "/tmp/server-access.log")
                 (debug-log "/tmp/server-debug.log"))
    (error "An error")))

(define thread
  (thread-start!
   (lambda ()
     (vhost-map `((".*" . ,(lambda (c) (app)))))
     (start-server))))