mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +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

5
libguile/gh_data.c
View file

@ -80,7 +80,7 @@ gh_double2scm (double x)
SCM
gh_char2scm (char c)
{
return SCM_MAKICHR (c);
return SCM_MAKICHR (c);
}
SCM
gh_str2scm (char *s, int len)
@ -101,7 +101,8 @@ gh_str02scm (char *s)
void
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,
"gh_set_substr");