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/scm/webid-oidc/program.scm | |
parent | b6a3a1222912bef89f109fec4174febb43944fae (diff) |
Unwind the stack to handle setlocale errors
Diffstat (limited to 'src/scm/webid-oidc/program.scm')
-rw-r--r-- | src/scm/webid-oidc/program.scm | 3 |
1 files changed, 2 insertions, 1 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. |