diff options
Diffstat (limited to 'libguile/rw.c')
-rw-r--r-- | libguile/rw.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/rw.c b/libguile/rw.c index 15d1efd13..94f813b90 100644 --- a/libguile/rw.c +++ b/libguile/rw.c @@ -147,7 +147,7 @@ SCM_DEFINE (scm_read_string_x_partial, "read-string!/partial", 1, 3, 0, else if (chars_read == 0) return SCM_BOOL_F; } - return scm_long2num (chars_read); + return scm_from_long (chars_read); } #undef FUNC_NAME @@ -229,7 +229,7 @@ SCM_DEFINE (scm_write_string_partial, "write-string/partial", 1, 3, 0, { memcpy (pt->write_pos, src, write_len); pt->write_pos += write_len; - return scm_long2num (write_len); + return scm_from_long (write_len); } if (pt->write_pos > pt->write_buf) scm_flush (port); @@ -247,7 +247,7 @@ SCM_DEFINE (scm_write_string_partial, "write-string/partial", 1, 3, 0, SCM_SYSERROR; } - return scm_long2num (rv); + return scm_from_long (rv); } } #undef FUNC_NAME |