From cd26ed9f3c6af51218f07891d4ecb5a6710c0d2f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 28 Nov 1994 04:06:33 +0000
Subject: [PATCH] Define a special hook to allow OS/2 to shut down its extra
 threads in an orderly way when Scheme exits.

---
 v7/src/microcode/config.h | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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
-- 
2.25.1