[Guile-commits] 06/11: Simplify definition of SCM_SYSCALL.

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 2f39771c845c3fa288bf34416f9649d5fde9c814
Author: Andy Wingo <address@hidden>
Date:   Sun Jun 17 09:35:31 2018 +0200

    Simplify definition of SCM_SYSCALL.
    
    * libguile/_scm.h (SCM_SYSCALL): Simplify definition.
---
 libguile/_scm.h | 30 +-----------------------------
 1 file changed, 1 insertion(+), 29 deletions(-)

diff --git a/libguile/_scm.h b/libguile/_scm.h
index 70de31b..5bf3acb 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 */