From 8b4b6cfaecd0184845d24cfadee4963e2b1d86d1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 11 May 2021 16:51:04 -0600
Subject: [PATCH] fix some -1 exit codes

On Windows, exit(-1) counts as success instead of failure.
---
 racket/src/bc/sgc/sgc.c  | 4 ++--
 racket/src/start/start.c | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/racket/src/bc/sgc/sgc.c b/racket/src/bc/sgc/sgc.c
index 255c05baf2..cad02c0459 100644
--- a/racket/src/bc/sgc/sgc.c
+++ b/racket/src/bc/sgc/sgc.c
@@ -1122,7 +1122,7 @@ static void *malloc_plain_sector(int count, int executable)
     if (GC_out_of_memory)
       GC_out_of_memory();
     FPRINTF(STDERR, "out of memory\n");
-    exit(-1);
+    exit(1);
   }
 
   return m;
@@ -2342,7 +2342,7 @@ static void *do_malloc(SET_NO_BACKINFO
 
 #if CHECK_COLLECTING
   if (collecting_now) {
-    exit(-1);
+    exit(1);
   }
 #endif
 
diff --git a/racket/src/start/start.c b/racket/src/start/start.c
index 7a9f95138c..dece45edc0 100644
--- a/racket/src/start/start.c
+++ b/racket/src/start/start.c
@@ -287,7 +287,7 @@ int wmain(int argc_in, wchar_t **argv_in)
     sprintf(errbuff,"Can't find %S\n",go);
     WriteStr(out,errbuff);
 #endif
-    exit(-1);
+    exit(1);
   }
 
   args[0] = go;
@@ -336,7 +336,7 @@ int wmain(int argc_in, wchar_t **argv_in)
 	    cl_len, MAXCOMMANDLEN,command_line);
     WriteStr(out,errbuff);
 #endif
-    exit(-1);
+    exit(1);
   } 
 
   if (!CreateProcessW(go,