From 48f5629f8e54f024e8763aeb12be513851ef28f3 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Thu, 30 Sep 2021 23:26:00 +0200 Subject: Unwind the stack to handle setlocale errors --- src/scm/webid-oidc/resource-server.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/scm/webid-oidc/resource-server.scm') 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 -- cgit v1.2.3