diff options
Diffstat (limited to 'lib/zambyte/meta/gerbil.scm')
| -rw-r--r-- | lib/zambyte/meta/gerbil.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/zambyte/meta/gerbil.scm b/lib/zambyte/meta/gerbil.scm index 8d545ef..173ef71 100644 --- a/lib/zambyte/meta/gerbil.scm +++ b/lib/zambyte/meta/gerbil.scm @@ -19,8 +19,8 @@ (define json->string json-object->string) (define (json-object-ref json key) - (or (and (json-object-contains-key? json key) - (hash-table-ref json key)) + (if (json-object-contains-key? json key) + (hash-table-ref json key) ((json-key-not-found)))) (define json-list-ref list-ref) |