gdritter repos when-computer / fa0081e
add encoding argument Getty Ritter 2 years ago
1 changed file(s) with 2 addition(s) and 2 deletion(s). Collapse all Expand all
+2
-2
generator/telml.scm less more
272272 (gather-para body)))))
273273
274274 (define (translate-file filename)
275 (let ((body (with-input-from-file filename read-string)))
275 (let ((body (with-input-from-file filename read-string #:encoding "UTF-8")))
276276 (telml->sxml (parse body) standard-tag-list)))
277277
278278 (define (translate-feed-file filename)
279 (let ((body (with-input-from-file filename read-string)))
279 (let ((body (with-input-from-file filename read-string #:encoding "UTF-8")))
280280 (telml->sxml (parse body) feed-tag-list)))