diff options
| author | Robby Zambito <contact@robbyzambito.me> | 2023-06-12 00:22:30 -0400 |
|---|---|---|
| committer | Robby Zambito <contact@robbyzambito.me> | 2023-06-12 00:22:30 -0400 |
| commit | 497f36b02e1056bafcb181a0d10fac7e3268130c (patch) | |
| tree | 617c300e7595dd1ec3d865d6b915f122f16d62f0 /lib/zambyte/meta/json.sld | |
| parent | a524ee77abb9ce48a2e909644767770716a2d3a4 (diff) | |
Return the mutated object from record mutators.
Update README
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 :::))))) |