From d02631bf16aaaa33212edccfdf304dda94f5ff0f Mon Sep 17 00:00:00 2001
From: Robby Zambito <contact@robbyzambito.me>
Date: Tue, 14 Feb 2023 20:53:47 -0500
Subject: Fix Gauche implementation of json-object-ref to reflect
 string->symbol change.

Add tests to catch this error.
---
 lib/zambyte/meta/gauche.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

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