Allow non-string json object keys

2025-01-29 15:20:32 -06:00
parent 0f04feedcd
commit bd7af0146c
2 changed files with 9 additions and 7 deletions
--- a/test.scm
+++ b/test.scm
@@ -121,8 +121,9 @@
    (assert-equal '() (json "{}"))
    (assert-equal '((cat . 1)
 		    (bat . #t)
-		    (rat . "yessir"))
-		  (json "{\"cat\": 1, \"bat\": true, \"rat\": \"yessir\"}"))
+		    (rat . "yessir")
+                    (4   . "what"))
+		  (json "{\"cat\": 1, \"bat\": true, \"rat\": \"yessir\", 4: \"what\"}"))
    (assert-equal '((butter . 1)
 		    (brownie))
 		  (json "{\"butter\": 1, \"brownie\": {}}"))))