Welcome to the CHICKEN Scheme pasting service

(use intarweb uri-common)

(write-response
  (make-response
    port: (current-output-port)
    status: 'found
    headers: (headers `((location  "/hello")))))

(write-response
  (make-response
    port: (current-output-port)
    status: 'found
    headers: (headers `((location  "http://example.net/hello")))))

(define test-uri (make-uri scheme: "https" host: "www.knodium.com" path: '(/ "Shibboleth.sso" "Login") query: `((target . "a") (entityID . ,"b"))))

(write-response
  (make-response
    port: (current-output-port)
    status: 'found
    headers: (headers `((location ,test-uri)))))

(write-response
  (make-response
    port: (current-output-port)
    status: 'found
    headers: (headers `((location  ,(uri->string test-uri))))))