-
This commit is contained in:
@@ -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)
|
||||||
|
|||||||
Reference in New Issue
Block a user