From 816dd3ea2a1bf7945d25f5c7a34525eb8c383fc0 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Fri, 29 Mar 2019 07:08:11 +0800 Subject: [PATCH] [guile-json] show better error messages --- borrowed/guile-json/json/builder.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/borrowed/guile-json/json/builder.scm b/borrowed/guile-json/json/builder.scm index 6060ac0ea1a..406f23bbbaa 100644 --- a/borrowed/guile-json/json/builder.scm +++ b/borrowed/guile-json/json/builder.scm @@ -182,7 +182,7 @@ ((string? scm) (json-build-string scm port escape unicode)) ((vector? scm) (json-build-array scm port escape unicode pretty level)) ((pair? scm) (json-build-object scm port escape unicode pretty level)) - (else (throw 'json-invalid)))) + (else (throw 'json-invalid scm)))) ;; ;; Public procedures