diff options
| author | Robby Zambito <contact@robbyzambito.me> | 2023-02-12 23:50:30 -0500 |
|---|---|---|
| committer | Robby Zambito <contact@robbyzambito.me> | 2023-02-12 23:50:30 -0500 |
| commit | 6fc3d6bdd6e7881b9a0b6afbd232e2ad46fbdb0e (patch) | |
| tree | 69c68e15c3c3691f2a6232cc42ad75af77ee5b4a /lib/zambyte/meta/chibi.scm | |
| parent | 9aa3608b184ab8794236b10b5f29ec919ee4e22c (diff) | |
Fix error where false values may act like a key was missing.
Tried to be too clever. Was not clever.
Diffstat (limited to 'lib/zambyte/meta/chibi.scm')
| -rw-r--r-- | lib/zambyte/meta/chibi.scm | 7 |
1 files changed, 4 insertions, 3 deletions
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) |