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/chibi.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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

diff --git a/lib/zambyte/meta/chibi.scm b/lib/zambyte/meta/chibi.scm
index fc8e942..286240d 100644
--- a/lib/zambyte/meta/chibi.scm
+++ b/lib/zambyte/meta/chibi.scm
@@ -23,9 +23,10 @@
   ;; string->json already defined in chibi json
 
   (define (json-object-ref json key)
-    (or (and-let* ((pair (assoc (string->symbol key) json)))
-	  (cdr pair))
-	((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