diff options
author | Jim Blandy <jimb@red-bean.com> | 1998-07-30 14:44:09 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1998-07-30 14:44:09 +0000 |
commit | 6a738a2516517fc0253c92d85947ec20cd69d20b (patch) | |
tree | 7759fabc78b8953b28590b0593fe0eab429d192f /libguile/filesys.h | |
parent | 8ecf1f13594bda0554d7f2976ef64de15c5130a7 (diff) | |
download | guile-6a738a2516517fc0253c92d85947ec20cd69d20b.tar.gz |
* filesys.c (scm_readlink): Make local vars rv and size ints, to
avoid signed/unsigned comparison warnings, and because the return
value of readlink may be -1. Don't bother casting the third
argument to readlink.
* filesys.c (scm_dirname, scm_basename): Move these to their own
page, at the end of the file.
* filesys.h (scm_dirname, scm_basename): Add prototypes for these.
Diffstat (limited to 'libguile/filesys.h')
-rw-r--r-- | libguile/filesys.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/libguile/filesys.h b/libguile/filesys.h index f6f6fba61..3650418be 100644 --- a/libguile/filesys.h +++ b/libguile/filesys.h @@ -81,6 +81,9 @@ extern SCM scm_symlink SCM_P ((SCM oldpath, SCM newpath)); extern SCM scm_readlink SCM_P ((SCM path)); extern SCM scm_lstat SCM_P ((SCM str)); extern SCM scm_copy_file SCM_P ((SCM oldfile, SCM newfile)); +extern SCM scm_dirname SCM_P ((SCM filename)); +extern SCM scm_basename SCM_P ((SCM filename, SCM suffix)); + extern void scm_init_filesys SCM_P ((void)); #endif /* FILESYSH */ |