From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 2 Dec 1994 20:40:20 +0000 (+0000)
Subject: Change initialization sequence so that OS/2 can start up its console
X-Git-Tag: 20090517-FFI~6903
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=10a956f5d0cdd837ecc2b4beee50a14491870aa4;p=mit-scheme.git

Change initialization sequence so that OS/2 can start up its console
window before the first `outf' call occurs.  Also add initialization
for PM console.
---

diff --git a/v7/src/microcode/os2top.c b/v7/src/microcode/os2top.c
index 94a6668d9..efa8e738f 100644
--- a/v7/src/microcode/os2top.c
+++ b/v7/src/microcode/os2top.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2top.c,v 1.2 1994/11/28 03:50:17 cph Exp $
+$Id: os2top.c,v 1.3 1994/12/02 20:40:20 cph Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -43,6 +43,7 @@ extern void OS2_initialize_directory_reader (void);
 extern void OS2_initialize_environment (void);
 extern void OS2_initialize_keyboard_interrupts (void);
 extern void OS2_initialize_message_queues (void);
+extern void OS2_initialize_pm_thread (void);
 extern void OS2_initialize_scheme_thread (void);
 extern void OS2_initialize_tty (void);
 
@@ -64,6 +65,7 @@ OS_initialize (void)
   initialize_locks ();
   OS2_initialize_message_queues ();
   OS2_initialize_scheme_thread ();
+  OS2_initialize_pm_thread ();
   OS2_initialize_channels ();
   OS2_initialize_channel_thread_messages ();
   OS2_initialize_keyboard_interrupts ();
@@ -77,8 +79,11 @@ OS_initialize (void)
     OS_Variant = (OS_malloc ((strlen (OS_Name)) + (strlen (version)) + 2));
     sprintf (((char *) OS_Variant), "%s %s", OS_Name, version);
   }
-  outf_console ("MIT Scheme running under %s\n", OS_Variant);
-  outf_flush_console ();
+}
+
+void
+OS_announcement (void)
+{
 }
 
 static const char *