diff options
author | Andy Wingo <wingo@pobox.com> | 2018-06-17 09:35:31 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-06-17 13:41:03 +0200 |
commit | 2f39771c845c3fa288bf34416f9649d5fde9c814 (patch) | |
tree | 28d33e96fd29868e6833c22b46042693b4bc647d | |
parent | 791341bdd2d843b3e1124f549452ff5034e97e62 (diff) | |
download | guile-2f39771c845c3fa288bf34416f9649d5fde9c814.tar.gz |
Simplify definition of SCM_SYSCALL.
* libguile/_scm.h (SCM_SYSCALL): Simplify definition.
-rw-r--r-- | libguile/_scm.h | 30 |
1 files changed, 1 insertions, 29 deletions
diff --git a/libguile/_scm.h b/libguile/_scm.h index 70de31b0d..5bf3acb90 100644 --- a/libguile/_scm.h +++ b/libguile/_scm.h @@ -90,29 +90,7 @@ /* ASYNC_TICK after finding EINTR in order to handle pending signals, if any. See comment in scm_syserror. */ -#ifndef SCM_SYSCALL -#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) \ +#define SCM_SYSCALL(line) \ do \ { \ errno = 0; \ @@ -124,13 +102,7 @@ } \ } \ 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 */ |