Support nested objects in json-read

lassik · lassik · commit 7dfe61b04f34 · 2020-01-25T16:28:40.000+02:00
Parses { "outer": { "inner": 1 } } without error.
diff --git a/srfi/json.scm b/srfi/json.scm
@@ -421,6 +421,13 @@
     (case type
       ((json-structure)
        (case obj
+         ((object-open)
+          (lambda (type obj)
+            (read-object-maybe-key '()
+                                   type
+                                   obj
+                                   (lambda (value)
+                                     (return (cons (cons key value) out))))))
          ((array-open)
           (lambda (type obj)
             (read-array '()
