diff options
Diffstat (limited to 'lib/zambyte/meta/guile.scm')
| -rw-r--r-- | lib/zambyte/meta/guile.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/zambyte/meta/guile.scm b/lib/zambyte/meta/guile.scm index 96968d6..1e41f9c 100644 --- a/lib/zambyte/meta/guile.scm +++ b/lib/zambyte/meta/guile.scm @@ -1,6 +1,5 @@ (import (json) - (srfi 1) - (srfi 2)) + (srfi 1)) (begin (define json-object list) (define json-list vector) @@ -18,9 +17,10 @@ (define json->string scm->json-string) (define (json-object-ref json key) - (or (and-let* ((pair (assoc key json))) - (cdr pair)) - ((json-key-not-found)))) + (let ((pair (assoc key json))) + (if pair + (cdr pair) + ((json-key-not-found))))) (define json-list-ref vector-ref) (define json-list-length vector-length) |