diff options
| author | Robby Zambito <contact@robbyzambito.me> | 2023-02-20 23:49:02 -0500 |
|---|---|---|
| committer | Robby Zambito <contact@robbyzambito.me> | 2023-02-20 23:49:02 -0500 |
| commit | df5df2b65e3e1f0ee90d4e3a73f35c9cf06d90b9 (patch) | |
| tree | e642f1766e65ab493308464b92c5158b219bca4e | |
| parent | 25cb16dfe411a9bd9d9d279d2476ec3dfc0a7595 (diff) | |
Return the mutated object in Gauche.
| -rw-r--r-- | lib/zambyte/meta/gauche.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/zambyte/meta/gauche.scm b/lib/zambyte/meta/gauche.scm index f27bc5b..59b82c0 100644 --- a/lib/zambyte/meta/gauche.scm +++ b/lib/zambyte/meta/gauche.scm @@ -58,7 +58,8 @@ (cond ((and (list? json) (json-object-contains-key? json key)) - (set-cdr! (assoc (symbol->string key) json) value)) + (set-cdr! (assoc (symbol->string key) json) value) + json) ((null? json) (error "json-object-set!: cannot set on an empty object" json)) ((list? json) |