diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-30 23:26:00 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-04 23:00:18 +0200 |
commit | 48f5629f8e54f024e8763aeb12be513851ef28f3 (patch) | |
tree | 5ef6196646abaa4639cebfcd721c2a3edda55ba0 /src | |
parent | b6a3a1222912bef89f109fec4174febb43944fae (diff) |
Unwind the stack to handle setlocale errors
Diffstat (limited to 'src')
-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 |