From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 28 Nov 1994 04:06:33 +0000 (+0000)
Subject: Define a special hook to allow OS/2 to shut down its extra threads in
X-Git-Tag: 20090517-FFI~6933
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cd26ed9f3c6af51218f07891d4ecb5a6710c0d2f;p=mit-scheme.git

Define a special hook to allow OS/2 to shut down its extra threads in
an orderly way when Scheme exits.
---

diff --git a/v7/src/microcode/config.h b/v7/src/microcode/config.h
index 6bf09e8a4..d957259bb 100644
--- a/v7/src/microcode/config.h
+++ b/v7/src/microcode/config.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: config.h,v 9.84 1994/06/28 19:46:25 cph Exp $
+$Id: config.h,v 9.85 1994/11/28 04:06:33 cph Exp $
 
 Copyright (c) 1987-94 Massachusetts Institute of Technology
 
@@ -443,6 +443,11 @@ extern unsigned long winnt_address_delta;
 
 #endif /* WINNT && !WINNT_RAW_ADDRESSES */
 
+#ifdef _OS2
+#define EXIT_SCHEME_DECLARATIONS extern void OS2_exit_scheme (int)
+#define EXIT_SCHEME OS2_exit_scheme
+#endif
+
 #endif /* i386 */
 
 #ifdef mips