summaryrefslogtreecommitdiff
path: root/libguile/ports.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/ports.c')
-rw-r--r--libguile/ports.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/ports.c b/libguile/ports.c
index f70db136e..d6689e55d 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -290,7 +290,7 @@ SCM_DEFINE (scm_drain_input, "drain-input", 1, 0, 0,
count += pt->saved_read_end - pt->saved_read_pos;
result = scm_makstr (count, 0);
- dst = SCM_CHARS (result);
+ dst = SCM_STRING_CHARS (result);
while (pt->read_pos < pt->read_end)
*dst++ = *(pt->read_pos++);