[guile-json] show better error messages

Gnucash · Apr 4, 2019 · 816dd3e · 816dd3e
1 parent d39f180
commit 816dd3e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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