diff options
| author | Robby Zambito <contact@robbyzambito.me> | 2023-06-11 14:18:32 -0400 |
|---|---|---|
| committer | Robby Zambito <contact@robbyzambito.me> | 2023-06-11 14:31:05 -0400 |
| commit | 44aedc153bd6ba4279b5bdafb5e6f1639f9baec6 (patch) | |
| tree | a96e40fd7ec3774b99111e7d790f1bd8be58244c | |
| parent | 35ca4b65f9849f50090f01dfe4f5e5501fc09ae8 (diff) | |
Convert keys from strings to symbols
| -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)))) |