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) (define/public (set-html html)
(let* ((tmpfile "/tmp/test.html") (let* ((tmpfile "/tmp/test.html")
(fh (open-output-file tmpfile #:exists 'replace))) (fh (open-output-file tmpfile #:exists 'replace)))
(displayln tmpfile) ;(displayln tmpfile)
(display html fh) (display html fh)
(close-output-port fh) (close-output-port fh)
(send this set-html-file! tmpfile) (send this set-html-file! tmpfile)