X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FParallel.lh;h=f87aa0c5eb825764a2ab29ebb7c726cf82f4588e;hb=abdd55c9c4a2873c2f4b25b4ea54ca921bca4f5e;hp=6a565dbead87ff021ce2f51212091871aac43adf;hpb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;p=ghc-hetmet.git

diff --git a/ghc/includes/Parallel.lh b/ghc/includes/Parallel.lh
index 6a565db..f87aa0c 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