summaryrefslogtreecommitdiff
path: root/module/rnrs/io/ports.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/rnrs/io/ports.scm')
-rw-r--r--module/rnrs/io/ports.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/module/rnrs/io/ports.scm b/module/rnrs/io/ports.scm
index e924ad8fc..594606785 100644
--- a/module/rnrs/io/ports.scm
+++ b/module/rnrs/io/ports.scm
@@ -387,7 +387,11 @@ read from/written to in @var{port}."
as a string, and a thunk to retrieve the characters associated with that port."
(let ((port (open-output-string)))
(values port
- (lambda () (get-output-string port)))))
+ (lambda ()
+ (let ((s (get-output-string port)))
+ (seek port 0 SEEK_SET)
+ (truncate-file port 0)
+ s)))))
(define* (open-file-output-port filename
#:optional