diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-08-10 14:06:59 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-08-10 14:06:59 +0000 |
commit | ebea155a3cc519e81919accaba980b1ad8954842 (patch) | |
tree | d1fd69a0c2a2ab568363b406ca678a739ea8c5be | |
parent | 7fd0a36919c3441352a78fd8f687fdb877fcbbb5 (diff) | |
download | guile-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.c | 6 |
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; |