Handle correctly duplicate keys

aconchillo · Dec 15, 2023 · 64e3a40 · 64e3a40
1 parent a6d4e29
commit 64e3a40
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/json/parser.scm b/json/parser.scm
@@ -226,7 +226,9 @@
        ((eqv? ch #\})
         (read-char port)
         (cond
-         (added (uniquify-keys (if ordered (reverse! pairs) pairs) '()))
+         (added (if ordered
+                    (uniquify-keys pairs '())
+                    (reverse! (uniquify-keys pairs '()))))
          (else (json-exception port))))
        ;; Read one pair and continue.
        ((eqv? ch #\")