diff options
Diffstat (limited to 'src/scm')
-rw-r--r-- | src/scm/webid-oidc/program.scm | 3 | ||||
-rw-r--r-- | src/scm/webid-oidc/resource-server.scm | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/program.scm b/src/scm/webid-oidc/program.scm index 00c929a..fc9d746 100644 --- a/src/scm/webid-oidc/program.scm +++ b/src/scm/webid-oidc/program.scm @@ -189,7 +189,8 @@ ,@(response-headers response)) #:port (response-port response) #:validate-headers? #t) - response-body))))))))) + response-body))) + #:unwind? #t)))))) (define (serve-one-client* handler implementation server state) ;; Same as serve-one-client, except it is served in a promise. diff --git a/src/scm/webid-oidc/resource-server.scm b/src/scm/webid-oidc/resource-server.scm index 50e5b64..d035ec4 100644 --- a/src/scm/webid-oidc/resource-server.scm +++ b/src/scm/webid-oidc/resource-server.scm @@ -126,7 +126,8 @@ (lambda (error) (g return error)) (lambda () - (f return)))))) + (f return)) + #:unwind? #t)))) (define (nonrdf-or-turtle server-uri request request-body) ;; If the request is an exotic RDF serialization |