summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-06-17 09:35:31 +0200
committerAndy Wingo <wingo@pobox.com>2018-06-17 13:41:03 +0200
commit2f39771c845c3fa288bf34416f9649d5fde9c814 (patch)
tree28d33e96fd29868e6833c22b46042693b4bc647d
parent791341bdd2d843b3e1124f549452ff5034e97e62 (diff)
downloadguile-2f39771c845c3fa288bf34416f9649d5fde9c814.tar.gz
Simplify definition of SCM_SYSCALL.
* libguile/_scm.h (SCM_SYSCALL): Simplify definition.
-rw-r--r--libguile/_scm.h30
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 */