okay actually they have to be strings, lets parameterize the acons

2025-01-29 18:09:00 -06:00
parent bd7af0146c
commit 4649057e17
2 changed files with 25 additions and 13 deletions
--- a/test.scm
+++ b/test.scm
@@ -121,9 +121,13 @@
    (assert-equal '() (json "{}"))
    (assert-equal '((cat . 1)
 		    (bat . #t)
-		    (rat . "yessir")
-                    (4   . "what"))
-		  (json "{\"cat\": 1, \"bat\": true, \"rat\": \"yessir\", 4: \"what\"}"))
+		    (rat . "yessir"))
+		  (json "{\"cat\": 1, \"bat\": true, \"rat\": \"yessir\"}"))
    (assert-equal '((butter . 1)
 		    (brownie))
-		  (json "{\"butter\": 1, \"brownie\": {}}"))))
+		  (json "{\"butter\": 1, \"brownie\": {}}"))
+    (assert-equal '(1 2)
+		  (json "{\"hello\": 1, \"world\": 2}"
+			#:obj-acons
+			(lambda (_key value rest)
+			  (cons value rest))))))