summaryrefslogtreecommitdiff
path: root/libguile/rw.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/rw.c')
-rw-r--r--libguile/rw.c6
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