mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

(scm_mknod): Test #ifdef S_IFLNK before using that (for

Browse source 
symlink).  Probably can't create symlinks with mknod anyway though.
This commit is contained in:
Kevin Ryde 2006-05-19 23:45:03 +00:00
parent 9b638d67f2
commit 8d1dd1a137
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/posix.c
View file

@ -1428,8 +1428,11 @@ SCM_DEFINE (scm_mknod, "mknod", 4, 0, 0,
ctype = S_IFREG;
else if (strcmp (p, "directory") == 0)
ctype = S_IFDIR;
#ifdef S_IFLNK
/* systems without symlinks probably don't have S_IFLNK defined */
else if (strcmp (p, "symlink") == 0)
ctype = S_IFLNK;
#endif
else if (strcmp (p, "block-special") == 0)
ctype = S_IFBLK;
else if (strcmp (p, "char-special") == 0)