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

Simplify definition of SCM_SYSCALL.

Browse source 
* libguile/_scm.h (SCM_SYSCALL): Simplify definition.
This commit is contained in:
Andy Wingo 2018-06-17 09:35:31 +02:00
parent 791341bdd2
commit 2f39771c84
1 changed files with 1 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

30
libguile/_scm.h
View file

@ -90,29 +90,7 @@
/* ASYNC_TICK after finding EINTR in order to handle pending signals, if /* ASYNC_TICK after finding EINTR in order to handle pending signals, if
any. See comment in scm_syserror. */ any. See comment in scm_syserror. */
#ifndef SCM_SYSCALL #define SCM_SYSCALL(line) \
#ifdef vms
# ifndef __GNUC__
# include <ssdef.h>
# define SCM_SYSCALL(line) \
do \
{ \
errno = 0; \
line; \
if (EVMSERR == errno && (vaxc$errno>>3)==(SS$_CONTROLC>>3)) \
scm_async_tick (); \
else \
break; \
} \
while (1)
# endif /* ndef __GNUC__ */
#endif /* def vms */
#endif /* ndef SCM_SYSCALL */
#ifndef SCM_SYSCALL
# ifdef EINTR
# if (EINTR > 0)
# define SCM_SYSCALL(line) \
do \ do \
{ \ { \
errno = 0; \ errno = 0; \
@ -124,13 +102,7 @@
} \ } \
} \ } \
while (errno == EINTR) while (errno == EINTR)
# endif /* (EINTR > 0) */
# endif /* def EINTR */
#endif /* ndef SCM_SYSCALL */
#ifndef SCM_SYSCALL
# define SCM_SYSCALL(line) line;
#endif /* ndef SCM_SYSCALL */