diff options
| -rw-r--r-- | lib/zambyte/meta/json.sld | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/zambyte/meta/json.sld b/lib/zambyte/meta/json.sld index 6d18d88..f305319 100644 --- a/lib/zambyte/meta/json.sld +++ b/lib/zambyte/meta/json.sld @@ -76,7 +76,10 @@ (define (from-json-string str) (let ((json (string->json str))) - (constructor (json-ref json 'fields) ...))) + (parameterize ((json-key-not-found + (lambda () + (error "key not found in json string when converting to a record" 'from-json-string)))) + (constructor (json-ref json 'fields) ...)))) (handle-field-declarations field-declarations) ...)))) |