diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-29 18:03:39 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-29 18:03:39 +0000 |
commit | f326ecf3863233f6e82fa182eb829fa77405204a (patch) | |
tree | e231b52bca331705483edec4275aa377530367a2 | |
parent | 7671d04a380cf65f9b4672f2ae687950977cfcea (diff) | |
download | guile-f326ecf3863233f6e82fa182eb829fa77405204a.tar.gz |
* filesys.c (scm_stat2scm): Conditionally use S_ISLNK.
-rw-r--r-- | libguile/filesys.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libguile/filesys.c b/libguile/filesys.c index 1ee34c257..96c4e9b30 100644 --- a/libguile/filesys.c +++ b/libguile/filesys.c @@ -295,7 +295,9 @@ scm_close (SCM fd_or_port) SCM_SYMBOL (scm_sym_regular, "regular"); SCM_SYMBOL (scm_sym_directory, "directory"); +#ifdef HAVE_S_ISLNK SCM_SYMBOL (scm_sym_symlink, "symlink"); +#endif SCM_SYMBOL (scm_sym_block_special, "block-special"); SCM_SYMBOL (scm_sym_char_special, "char-special"); SCM_SYMBOL (scm_sym_fifo, "fifo"); @@ -343,8 +345,10 @@ scm_stat2scm (stat_temp) ve[13] = scm_sym_regular; else if (S_ISDIR (mode)) ve[13] = scm_sym_directory; +#ifdef HAVE_S_ISLNK else if (S_ISLNK (mode)) ve[13] = scm_sym_symlink; +#endif else if (S_ISBLK (mode)) ve[13] = scm_sym_block_special; else if (S_ISCHR (mode)) |