From 19850f4cbf99019b78df63f9acd6801f4f41ffdc Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Tue, 18 May 2021 00:23:29 +0200
Subject: fixup! Export a JSON API that is compatible with SRFI-180

---
 src/scm/webid-oidc/stubs.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/scm/webid-oidc/stubs.scm b/src/scm/webid-oidc/stubs.scm
index b750e7d..8a7e0c5 100644
--- a/src/scm/webid-oidc/stubs.scm
+++ b/src/scm/webid-oidc/stubs.scm
@@ -107,7 +107,7 @@
 (define (fixed:json->scm port)
   (with-exception-handler
       (lambda (err)
-        (raise-not-json str err))
+        (raise-not-json "(input)" err))
     (lambda ()
       (fix-alists (json->scm port)))))
 
-- 
cgit v1.2.3