mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 08:10:17 +02:00
Code Activity

* strings.c, strings.h: (scm_makfrom0str, scm_makefrom0str_opt:

Browse source 
declare the char * to be const.  Avoids a warning in rgx.c.

* ports.h: spelling fix.

* filesys.c (scm_sys_stat, scm_sys,lstat): include file name in
error messages.

* load.c (scm_sys_try_load_path): throw an error if file not found
(like it says it in NEWS).
This commit is contained in:
Gary Houston 1996-09-28 19:40:54 +00:00
parent 5552355a7b
commit dbece3a204
6 changed files with 37 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/strings.c
View file

@ -234,11 +234,11 @@ scm_makfromstr (src, len, slots)
#ifdef __STDC__
SCM
scm_makfrom0str (char *src)
scm_makfrom0str (const char *src)
#else
SCM
scm_makfrom0str (src)
char *src;
const char *src;
#endif
{
if (!src) return SCM_BOOL_F;
@ -247,11 +247,11 @@ scm_makfrom0str (src)
#ifdef __STDC__
SCM
scm_makfrom0str_opt (char *src)
scm_makfrom0str_opt (const char *src)
#else
SCM
scm_makfrom0str_opt (src)
char *src;
const char *src;
#endif
{
return scm_makfrom0str (src);