From 44aedc153bd6ba4279b5bdafb5e6f1639f9baec6 Mon Sep 17 00:00:00 2001
From: Robby Zambito <contact@robbyzambito.me>
Date: Sun, 11 Jun 2023 14:18:32 -0400
Subject: Convert keys from strings to symbols

---
 lib/zambyte/meta/guile-json.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/zambyte/meta/guile-json.scm')

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))))
 
-- 
cgit