mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

Adjust formatting.

Browse source
This commit is contained in:
Jim Blandy 1998-10-08 20:12:53 +00:00
parent 6d921cd6cc
commit cc5ca0281d
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/strings.c
View file

@ -288,7 +288,8 @@ scm_string_set_x (str, k, chr)
SCM_ASSERT (SCM_ICHRP (chr), chr, SCM_ARG3, s_string_set_x); SCM_ASSERT (SCM_ICHRP (chr), chr, SCM_ARG3, s_string_set_x);
if (! SCM_RWSTRINGP (str)) if (! SCM_RWSTRINGP (str))
scm_misc_error (s_string_set_x, "argument is a read-only string", str); scm_misc_error (s_string_set_x, "argument is a read-only string", str);
SCM_ASSERT (SCM_INUM (k) < SCM_LENGTH (str) && SCM_INUM (k) >= 0, SCM_ASSERT ((SCM_INUM (k) >= 0
&& ((unsigned) SCM_INUM (k)) < SCM_LENGTH (str)),
k, SCM_OUTOFRANGE, s_string_set_x); k, SCM_OUTOFRANGE, s_string_set_x);
SCM_UCHARS (str)[SCM_INUM (k)] = SCM_ICHR (chr); SCM_UCHARS (str)[SCM_INUM (k)] = SCM_ICHR (chr);
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;