From a55021b7c30c5e8dbd4750e3517b022a55c89de0 Mon Sep 17 00:00:00 2001
From: Robby Zambito <contact@robbyzambito.me>
Date: Mon, 13 Feb 2023 16:45:12 -0500
Subject: Fixed issue in Gauche where object keys would never match

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

diff --git a/lib/zambyte/meta/gauche.scm b/lib/zambyte/meta/gauche.scm
index 34a755a..6f233bf 100644
--- a/lib/zambyte/meta/gauche.scm
+++ b/lib/zambyte/meta/gauche.scm
@@ -31,7 +31,7 @@
   (define json->string construct-json-string)
 
   (define (json-object-ref json key)
-    (let ((pair (assoc (string->symbol key) json)))
+    (let ((pair (assoc key json)))
       (if pair
 	  (cdr pair)
 	  ((json-key-not-found)))))
-- 
cgit