diff options
Diffstat (limited to 'lib/zambyte/meta/guile-json.scm')
| -rw-r--r-- | lib/zambyte/meta/guile-json.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/zambyte/meta/guile-json.scm b/lib/zambyte/meta/guile-json.scm index 903182b..bcdd0cb 100644 --- a/lib/zambyte/meta/guile-json.scm +++ b/lib/zambyte/meta/guile-json.scm @@ -73,7 +73,7 @@ (define (json-object->alist json) (cond - ((list? json) json) + ((list? json) (map (lambda (pair) (cons (string->symbol (car pair)) (cdr pair))) json)) ((json-record? json) (json-record->fields json)) (else (error "json-object->alist: not an object" json)))) |