From 76288f4c507a13b1b11838cd046f498f5ff4a071 Mon Sep 17 00:00:00 2001 From: Robby Zambito Date: Fri, 17 Feb 2023 21:34:50 -0500 Subject: Fix issue where json-object-set! could not be used for mutable record fields --- lib/zambyte/meta/guile-json.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- cgit