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/180.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'lib/zambyte/meta/180.scm') diff --git a/lib/zambyte/meta/180.scm b/lib/zambyte/meta/180.scm index 71ee1a8..de9e2dd 100644 --- a/lib/zambyte/meta/180.scm +++ b/lib/zambyte/meta/180.scm @@ -29,9 +29,10 @@ (get-output-string port)))) (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