mirror of
https://github.com/Gnucash/gnucash.git
synced 2024-11-21 16:38:06 -06:00
[guile-json] show better error messages
This commit is contained in:
parent
d39f180c60
commit
816dd3ea2a
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user