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 SCM
gh_char2scm (char c) gh_char2scm (char c)
{ {
return SCM_MAKICHR (c); return SCM_MAKICHR (c);
} }
SCM SCM
gh_str2scm (char *s, int len) gh_str2scm (char *s, int len)
@ -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");