From 6fc3d6bdd6e7881b9a0b6afbd232e2ad46fbdb0e Mon Sep 17 00:00:00 2001
From: Robby Zambito <contact@robbyzambito.me>
Date: Sun, 12 Feb 2023 23:50:30 -0500
Subject: Fix error where false values may act like a key was missing.

Tried to be too clever. Was not clever.
---
 lib/zambyte/meta/gauche.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lib/zambyte/meta/gauche.scm')

diff --git a/lib/zambyte/meta/gauche.scm b/lib/zambyte/meta/gauche.scm
index 3ab2062..34a755a 100644
--- a/lib/zambyte/meta/gauche.scm
+++ b/lib/zambyte/meta/gauche.scm
@@ -31,8 +31,10 @@
   (define json->string construct-json-string)
 
   (define (json-object-ref json key)
-    (or (assoc-ref json key)
-	((json-key-not-found))))
+    (let ((pair (assoc (string->symbol key) json)))
+      (if pair
+	  (cdr pair)
+	  ((json-key-not-found)))))
 
   (define json-list-ref vector-ref)
   (define json-list-length vector-length)
-- 
cgit