This commit is contained in:
2026-02-24 12:29:48 +01:00
parent 30c252b494
commit 03ed7665a2

View File

@@ -553,7 +553,7 @@
(define/public (set-html html)
(let* ((tmpfile "/tmp/test.html")
(fh (open-output-file tmpfile #:exists 'replace)))
(displayln tmpfile)
;(displayln tmpfile)
(display html fh)
(close-output-port fh)
(send this set-html-file! tmpfile)