mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

* filesys.c (scm_stat2scm): Conditionally use S_ISLNK.

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-08-29 18:03:39 +00:00
parent 7671d04a38
commit f326ecf386
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/filesys.c
View file

@ -295,7 +295,9 @@ scm_close (SCM fd_or_port)
SCM_SYMBOL (scm_sym_regular, "regular"); SCM_SYMBOL (scm_sym_regular, "regular");
SCM_SYMBOL (scm_sym_directory, "directory"); SCM_SYMBOL (scm_sym_directory, "directory");
#ifdef HAVE_S_ISLNK
SCM_SYMBOL (scm_sym_symlink, "symlink"); SCM_SYMBOL (scm_sym_symlink, "symlink");
#endif
SCM_SYMBOL (scm_sym_block_special, "block-special"); SCM_SYMBOL (scm_sym_block_special, "block-special");
SCM_SYMBOL (scm_sym_char_special, "char-special"); SCM_SYMBOL (scm_sym_char_special, "char-special");
SCM_SYMBOL (scm_sym_fifo, "fifo"); SCM_SYMBOL (scm_sym_fifo, "fifo");
@ -343,8 +345,10 @@ scm_stat2scm (stat_temp)
ve[13] = scm_sym_regular; ve[13] = scm_sym_regular;
else if (S_ISDIR (mode)) else if (S_ISDIR (mode))
ve[13] = scm_sym_directory; ve[13] = scm_sym_directory;
#ifdef HAVE_S_ISLNK
else if (S_ISLNK (mode)) else if (S_ISLNK (mode))
ve[13] = scm_sym_symlink; ve[13] = scm_sym_symlink;
#endif
else if (S_ISBLK (mode)) else if (S_ISBLK (mode))
ve[13] = scm_sym_block_special; ve[13] = scm_sym_block_special;
else if (S_ISCHR (mode)) else if (S_ISCHR (mode))