aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/guile/skribilo/engine/html.scm10
1 files changed, 4 insertions, 6 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index f63d475..525567c 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -47,6 +47,8 @@
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-39)
+ #:use-module (rnrs io ports)
+
#:export (html-engine html-title-engine html-file
html-width html-class html-markup-class
html-title-authors))
@@ -884,12 +886,8 @@ unspecified or #f values are ignored."
"Can't open CSS file for input"
css)
(begin
- (let loop ((l (read-line p)))
- (unless (eof-object? l)
- (display l)
- (newline)
- (loop (read-line p))))
- (close-input-port p)))))
+ (display (get-string-all p))
+ (close-input-port p)))))
icss))))
:after " -->\n </style>\n")