diff options
author | Jim Blandy <jimb@red-bean.com> | 1998-09-06 18:15:49 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1998-09-06 18:15:49 +0000 |
commit | c7023c693ac6792bc09b9838de36e0fa01148fe7 (patch) | |
tree | b256a8ba92a4f35c93399a2d74f6c0b99dfcf8bd /libguile/load.c | |
parent | fec5693499c33c628b3322ab214fe3a008ad6e59 (diff) | |
download | guile-c7023c693ac6792bc09b9838de36e0fa01148fe7.tar.gz |
* load.c (swap_port): Make this function static.
* load.c (scm_search_path): Make max_path_len and max_ext_len
unsigned, since they're compared against string sizes.
* load.c (init_build_info): Make i unsigned.
Diffstat (limited to 'libguile/load.c')
-rw-r--r-- | libguile/load.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/load.c b/libguile/load.c index 3de41dabe..cec6a07cc 100644 --- a/libguile/load.c +++ b/libguile/load.c @@ -70,7 +70,7 @@ Applied to the full name of the file. */ static SCM *scm_loc_load_hook; -void +static void swap_port (void *data) { SCM *save_port = data, tmp = scm_cur_loadp; @@ -235,8 +235,8 @@ scm_search_path (path, filename, extensions) { char *buf; int filename_len; - int max_path_len; - int max_ext_len; + size_t max_path_len; + size_t max_ext_len; SCM_ASSERT (scm_ilength (path) >= 0, path, SCM_ARG1, s_search_path); SCM_ASSERT (SCM_NIMP (filename) && SCM_ROSTRINGP (filename), filename, @@ -416,7 +416,7 @@ init_build_info () { static struct { char *name; char *value; } info[] = SCM_BUILD_INFO; SCM *loc = SCM_CDRLOC (scm_sysintern ("%guile-build-info", SCM_EOL)); - int i; + unsigned int i; for (i = 0; i < (sizeof (info) / sizeof (info[0])); i++) *loc = scm_acons (SCM_CAR (scm_intern0 (info[i].name)), |