diff options
Diffstat (limited to 'lib/zambyte/meta/json.sld')
| -rw-r--r-- | lib/zambyte/meta/json.sld | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/zambyte/meta/json.sld b/lib/zambyte/meta/json.sld index 0802f94..32ce22c 100644 --- a/lib/zambyte/meta/json.sld +++ b/lib/zambyte/meta/json.sld @@ -133,7 +133,8 @@ (if (json-record? json) (or (and-let* ((pair (assoc 'name (json-record->mutators json))) (mut! (cdr pair))) - (mut! (json-record->internal-record json) value)) + (mut! (json-record->internal-record json) value) + json) (error (string-append (symbol->string 'mutator) ": no mutator for field") (json-record->name json) 'name)) (json-object-set! json 'name value))) (define-accessors-and-mutators rest :::))))) |