diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-12-15 20:14:02 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-12-15 20:14:19 +0100 |
commit | 1cd4fffcde4edd4853e039da9a42e0972d851a51 (patch) | |
tree | 82c1f750fd5acf88414b85a421c7b7212d9efcfc /lib/stdio-write.c | |
parent | 20ccae8dbb8d92a6a32e0275c517f70961c6b833 (diff) | |
download | guile-1cd4fffcde4edd4853e039da9a42e0972d851a51.tar.gz |
Use Gnulib's `sys_stat' module; update Gnulib.
* .x-sc_prohibit_S_IS_definition: New file.
* m4/gnulib-cache.m4: Add `sys_stat'.
* libguile/filesys.c: Remove `S_IS*' macro definitions for Ultrix and
MinGW.
Diffstat (limited to 'lib/stdio-write.c')
-rw-r--r-- | lib/stdio-write.c | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/lib/stdio-write.c b/lib/stdio-write.c index ea1bdb995..7b26c78ae 100644 --- a/lib/stdio-write.c +++ b/lib/stdio-write.c @@ -39,27 +39,27 @@ # include <windows.h> # define CALL_WITH_SIGPIPE_EMULATION(RETTYPE, EXPRESSION, FAILED) \ - if (ferror (stream)) \ - return (EXPRESSION); \ - else \ - { \ - RETTYPE ret; \ - SetLastError (0); \ - ret = (EXPRESSION); \ + if (ferror (stream)) \ + return (EXPRESSION); \ + else \ + { \ + RETTYPE ret; \ + SetLastError (0); \ + ret = (EXPRESSION); \ if (FAILED && GetLastError () == ERROR_NO_DATA && ferror (stream)) \ - { \ - int fd = fileno (stream); \ - if (fd >= 0 \ - && GetFileType ((HANDLE) _get_osfhandle (fd)) == FILE_TYPE_PIPE)\ - { \ - /* Try to raise signal SIGPIPE. */ \ - raise (SIGPIPE); \ - /* If it is currently blocked or ignored, change errno from \ - EINVAL to EPIPE. */ \ - errno = EPIPE; \ - } \ - } \ - return ret; \ + { \ + int fd = fileno (stream); \ + if (fd >= 0 \ + && GetFileType ((HANDLE) _get_osfhandle (fd)) == FILE_TYPE_PIPE)\ + { \ + /* Try to raise signal SIGPIPE. */ \ + raise (SIGPIPE); \ + /* If it is currently blocked or ignored, change errno from \ + EINVAL to EPIPE. */ \ + errno = EPIPE; \ + } \ + } \ + return ret; \ } # if !REPLACE_PRINTF_POSIX /* avoid collision with printf.c */ |