diff options
| author | Robby Zambito <contact@robbyzambito.me> | 2023-02-17 21:34:50 -0500 |
|---|---|---|
| committer | Robby Zambito <contact@robbyzambito.me> | 2023-02-17 21:34:50 -0500 |
| commit | 76288f4c507a13b1b11838cd046f498f5ff4a071 (patch) | |
| tree | 0be2a9cec574dda40893cf4f1ba792b1fc9c6b3c | |
| parent | f432d291c6b1145ab572e71ff325fe30e9755cfb (diff) | |
Fix issue where json-object-set! could not be used for mutable record fields
| -rw-r--r-- | lib/zambyte/meta/guile-json.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/zambyte/meta/guile-json.scm b/lib/zambyte/meta/guile-json.scm index 195e85e..a5815ff 100644 --- a/lib/zambyte/meta/guile-json.scm +++ b/lib/zambyte/meta/guile-json.scm @@ -52,7 +52,7 @@ ((list? json) (append! json (list (cons (symbol->string key) value)))) ((json-record? json) - (or (and-let* ((pair (assoc (symbol->string key) (json-record->mutators json))) + (or (and-let* ((pair (assoc key (json-record->mutators json))) (mutator (cdr pair))) (mutator json value) json) |