diff options
Diffstat (limited to 'src/scm/webid-oidc/cache.scm')
| -rw-r--r-- | src/scm/webid-oidc/cache.scm | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/src/scm/webid-oidc/cache.scm b/src/scm/webid-oidc/cache.scm index 4bd3e09..ec4d6b2 100644 --- a/src/scm/webid-oidc/cache.scm +++ b/src/scm/webid-oidc/cache.scm @@ -232,16 +232,18 @@ (values (build-response #:headers - (append - (response-headers new-response) - (filter - (lambda (h) - (case (car h) - ((cache-control content-location date etag expires vary) - ;; These are overriden by new-response - #f) - (else #t))) - (response-headers response)))) + (let ((new-header? + (lambda (h) + (case (car h) + ((cache-control content-location date etag expires vary) + #t) + (else #f))))) + (append + (filter new-header? (response-headers new-response)) + (filter + (lambda (h) + (not (new-header? h))) + (response-headers response))))) body) (values new-response new-response-body))) ((p:anonymous-http-request) uri #:headers headers)))) |