[guile-json] show better error messages

This commit is contained in:
Christopher Lam 2019-03-29 07:08:11 +08:00
parent d39f180c60
commit 816dd3ea2a

View File

@ -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