From ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:31 -0800
Subject: Import Upstream version 5e2

---
 scm.c | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

(limited to 'scm.c')

diff --git a/scm.c b/scm.c
index d4506e8..bdb7967 100644
--- a/scm.c
+++ b/scm.c
@@ -236,11 +236,11 @@ SIGRETTYPE  win32_sigint(int sig)
 	CONTEXT ctx;
 	DWORD *Stack;
 
-	if(-1 == SuspendThread(scm_hMainThread))
+	if (-1 == SuspendThread(scm_hMainThread))
 		return;
 
 	ctx.ContextFlags = CONTEXT_FULL;
-	if(0 == GetThreadContext(scm_hMainThread, &ctx))
+	if (0 == GetThreadContext(scm_hMainThread, &ctx))
 	{
 		ResumeThread(scm_hMainThread);
 		return;
@@ -289,7 +289,7 @@ static SIGRETTYPE scmable_signal(sig)
     if (sig == sigdesc[i].signo) break;
   ASRTER(i >= 0, MAKINUM(sig), s_unksig, "");
 #ifdef WINSIGNALS
-  if(SIGINT == sig)
+  if (SIGINT == sig)
 	signal(sig, win32_sigint);
   else
 #endif
@@ -385,13 +385,11 @@ SCM scm_setitimer(which, value, interval)
 }
 # endif
 # ifndef AMIGA
-#  ifndef __CYGWIN32__
 SCM l_pause()
 {
   pause();
   return UNSPECIFIED;
 }
-#  endif
 # endif
 #endif /* SIGALRM */
 
@@ -680,14 +678,14 @@ void restore_signals()
 
 void scm_init_from_argv(argc, argv, script_arg, iverbose, buf0stdin)
      int argc;
-     char **argv;
+     const char * const *argv;
      char *script_arg;
      int iverbose;
      int buf0stdin;
 {
   long i = 0L;
   if ((2 <= argc) && argv[1] && (0==strncmp("-a", argv[1], 2))) {
-    char *str = (0==argv[1][2] && 3 <= argc && argv[2]) ?argv[2]:&argv[1][2];
+    const char *str = (0==argv[1][2] && 3 <= argc && argv[2]) ?argv[2]:&argv[1][2];
     do {
       switch (*str) {
       case DIGITS:
@@ -731,7 +729,7 @@ void final_scm(freeall)
 # define SYSTNAME "unix"
 # define DIRSEP "/"
 #endif
-#ifdef __CYGWIN32__
+#ifdef __CYGWIN__
 # define SYSTNAME "unix"
 # define DIRSEP "/"
 #endif
@@ -885,8 +883,8 @@ SCM scm_execpath(newpath)
 }
 char *scm_find_execpath(argc, argv, script_arg)
      int argc;
-     char **argv;
-     char *script_arg;
+     const char * const *argv;
+     const char *script_arg;
 {
   char *exepath = 0;
 #ifndef macintosh
@@ -985,9 +983,7 @@ static iproc subr0s[] = {
 #endif
 #ifdef SIGALRM
 # ifndef AMIGA
-#  ifndef __CYGWIN32__
 	{"pause", l_pause},
-#  endif
 # endif
 #endif
 	{0, 0}};
-- 
cgit v1.2.3