mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

gh bug fix

Browse source
This commit is contained in:
Anthony Green 1997-11-26 03:45:23 +00:00
parent 18daf95b39
commit 2c92112b3d
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/gh_data.c
View file

@ -101,7 +101,8 @@ gh_str02scm (char *s)
void void
gh_set_substr (char *src, SCM dst, int start, int len) gh_set_substr (char *src, SCM dst, int start, int len)
{ {
char *dst_ptr, dst_len, effective_length; char *dst_ptr;
unsigned long dst_len, effective_length;
SCM_ASSERT (SCM_NIMP (dst) && SCM_STRINGP (dst), dst, SCM_ARG3, SCM_ASSERT (SCM_NIMP (dst) && SCM_STRINGP (dst), dst, SCM_ARG3,
"gh_set_substr"); "gh_set_substr");