mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

(scm_stat2scm): Test #ifdef S_ISLNK directly, rather than

Browse source 
HAVE_S_ISLNK from configure (it was only a #ifdef test anyway).
This commit is contained in:
Kevin Ryde 2006-05-19 23:40:09 +00:00
parent 26ff0b33b4
commit 9b638d67f2
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/filesys.c
View file

@ -466,7 +466,7 @@ SCM_DEFINE (scm_close_fdes, "close-fdes", 1, 0, 0,
SCM_SYMBOL (scm_sym_regular, "regular");
SCM_SYMBOL (scm_sym_directory, "directory");
#ifdef HAVE_S_ISLNK
#ifdef S_ISLNK
SCM_SYMBOL (scm_sym_symlink, "symlink");
#endif
SCM_SYMBOL (scm_sym_block_special, "block-special");
@ -512,7 +512,8 @@ scm_stat2scm (struct stat_or_stat64 *stat_temp)
SCM_SIMPLE_VECTOR_SET(ans, 13, scm_sym_regular);
else if (S_ISDIR (mode))
SCM_SIMPLE_VECTOR_SET(ans, 13, scm_sym_directory);
#ifdef HAVE_S_ISLNK
#ifdef S_ISLNK
/* systems without symlinks probably don't have S_ISLNK */
else if (S_ISLNK (mode))
SCM_SIMPLE_VECTOR_SET(ans, 13, scm_sym_symlink);
#endif