diff options
Diffstat (limited to 'libguile/ports.c')
-rw-r--r-- | libguile/ports.c | 2 |
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++); |