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