mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

(scm_mkstrport): Use SCM_I_STRING_UCHARS instead of SCM_STRING_UCHARS.

Browse source 
Use SCM_I_STRINGP instead of SCM_STRINGP.
This commit is contained in:
Marius Vollmer 2004-08-10 14:06:59 +00:00
parent 7fd0a36919
commit ebea155a3c
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/strports.c
View file

@ -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;