diff options
Diffstat (limited to 'lib/zambyte/meta/sagittarius.scm')
| -rw-r--r-- | lib/zambyte/meta/sagittarius.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/zambyte/meta/sagittarius.scm b/lib/zambyte/meta/sagittarius.scm index 97deb0b..e8d82ae 100644 --- a/lib/zambyte/meta/sagittarius.scm +++ b/lib/zambyte/meta/sagittarius.scm @@ -42,9 +42,10 @@ (get-output-string port)))) (define (json-object-ref json key) - (or (and-let* ((pair (assoc key (json-object->alist json)))) - (cdr pair)) - ((json-key-not-found)))) + (let ((pair (assoc key (json-object->alist json)))) + (if pair + (cdr pair) + ((json-key-not-found))))) (define (json-list-ref json index) (list-ref (json-list->list json) index)) |