From 6fc3d6bdd6e7881b9a0b6afbd232e2ad46fbdb0e Mon Sep 17 00:00:00 2001 From: Robby Zambito 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/macduffie.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/zambyte/meta/macduffie.scm') diff --git a/lib/zambyte/meta/macduffie.scm b/lib/zambyte/meta/macduffie.scm index 8a42183..288192b 100644 --- a/lib/zambyte/meta/macduffie.scm +++ b/lib/zambyte/meta/macduffie.scm @@ -15,8 +15,8 @@ (define json->string json-write-string) (define (json-object-ref json key) - (or (and (hash-table-exists? json key) - (hash-table-ref json key)) + (if (hash-table-exists? json key) + (hash-table-ref json key) ((json-key-not-found)))) (define json-list-ref list-ref) -- cgit