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 6bf09e8a4cc1cb1d5aaedd88451ae7a2af6f156f..d957259bb526b2d3a4d7d57d1b7fe1281501d797 100644 (file)
--- 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 */
 \f
 #ifdef mips