summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-08-10 14:06:59 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-08-10 14:06:59 +0000
commitebea155a3cc519e81919accaba980b1ad8954842 (patch)
treed1fd69a0c2a2ab568363b406ca678a739ea8c5be
parent7fd0a36919c3441352a78fd8f687fdb877fcbbb5 (diff)
downloadguile-ebea155a3cc519e81919accaba980b1ad8954842.tar.gz
(scm_mkstrport): Use SCM_I_STRING_UCHARS instead of SCM_STRING_UCHARS.
Use SCM_I_STRINGP instead of SCM_STRINGP.
-rw-r--r--libguile/strports.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/strports.c b/libguile/strports.c
index 30ce38509..70d8e66f0 100644
--- a/libguile/strports.c
+++ b/libguile/strports.c
@@ -252,8 +252,8 @@ scm_mkstrport (SCM pos, SCM str, long modes, const char *caller)
scm_t_port *pt;
size_t str_len, c_pos;
- SCM_ASSERT (SCM_STRINGP (str), str, SCM_ARG1, caller);
- str_len = SCM_STRING_LENGTH (str);
+ SCM_ASSERT (SCM_I_STRINGP (str), str, SCM_ARG1, caller);
+ str_len = SCM_I_STRING_LENGTH (str);
c_pos = scm_to_unsigned_integer (pos, 0, str_len);
if (!((modes & SCM_WRTNG) || (modes & SCM_RDNG)))
@@ -264,7 +264,7 @@ scm_mkstrport (SCM pos, SCM str, long modes, const char *caller)
pt = SCM_PTAB_ENTRY(z);
SCM_SETSTREAM (z, SCM_UNPACK (str));
SCM_SET_CELL_TYPE(z, scm_tc16_strport|modes);
- pt->write_buf = pt->read_buf = SCM_STRING_UCHARS (str);
+ pt->write_buf = pt->read_buf = SCM_I_STRING_UCHARS (str);
pt->read_pos = pt->write_pos = pt->read_buf + c_pos;
pt->write_buf_size = pt->read_buf_size = str_len;
pt->write_end = pt->read_end = pt->read_buf + pt->read_buf_size;