request.scm

(let ((fetcher (lambda (key)
                 (lambda (request)
                   (let ((val (assoc key request)))
                     (if key
                       (cdr val)
                       #f))))))
  (define get-request-method (fetcher 'method))
  (define get-request-path (fetcher 'path))
  )