From df5df2b65e3e1f0ee90d4e3a73f35c9cf06d90b9 Mon Sep 17 00:00:00 2001
From: Robby Zambito <contact@robbyzambito.me>
Date: Mon, 20 Feb 2023 23:49:02 -0500
Subject: Return the mutated object in Gauche.

---
 lib/zambyte/meta/gauche.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/zambyte/meta')

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)
-- 
cgit