diff options
Diffstat (limited to 'lib/zambyte/meta/gauche.scm')
| -rw-r--r-- | lib/zambyte/meta/gauche.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/zambyte/meta/gauche.scm b/lib/zambyte/meta/gauche.scm index 3ab2062..34a755a 100644 --- a/lib/zambyte/meta/gauche.scm +++ b/lib/zambyte/meta/gauche.scm @@ -31,8 +31,10 @@ (define json->string construct-json-string) (define (json-object-ref json key) - (or (assoc-ref json key) - ((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) |