From 9a1d788d9188bd7de381efc5a7a88970eb0009c8 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 13 Mar 1997 07:55:18 +0000
Subject: [PATCH] [project @ 1997-03-13 07:55:18 by sof] Removed redef of exit

---
 ghc/includes/Parallel.lh | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ghc/includes/Parallel.lh b/ghc/includes/Parallel.lh
index 6a565dbead87..f87aa0c5eb82 100644
--- a/ghc/includes/Parallel.lh
+++ b/ghc/includes/Parallel.lh
@@ -85,9 +85,13 @@ void freeHashTable PROTO((HashTable *table, void (*freeDataFun) PROTO((void *dat
 HashTable *allocHashTable(STG_NO_ARGS);
 void *removeHashTable PROTO((HashTable *table, StgWord key, void *data));
 
+/*
+  Redefining exit is more trouble than its worth, IMO -- SOF 
+*/
 extern void myexit PROTO((I_));
 #  define EXIT myexit
-#  define exit : error : Wrong exit!
+/* #  define exit : error : Wrong exit! */
+
 # else
 #  define EXIT exit
 # endif
-- 
GitLab