Tweak streaming json

Don't set the encoding, this should be handled by knots, and drop the block
size as the previous value seemed excessive.
This commit is contained in:
Christopher Baines 2025-02-06 17:15:33 +00:00
parent 9e3cfabe77
commit 131967dc39

View file

@ -168,8 +168,7 @@
(vary . (accept)))))
(if stream?
(lambda (port)
(set-port-encoding! port "utf-8")
(setvbuf port 'block (expt 2 20))
(setvbuf port 'block (expt 2 16))
(scm->json json port))
(call-with-encoded-output-string
"utf-8"