From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Dec 1994 21:14:09 +0000 (+0000)
Subject: Change cold-load order to put INITIALIZE-SYSTEM-PRIMITIVES! before the
X-Git-Tag: 20090517-FFI~6852
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=66fbd999ce4855ba1f039be4abe2746b487ed06b;p=mit-scheme.git

Change cold-load order to put INITIALIZE-SYSTEM-PRIMITIVES! before the
thread initialization.  This is because OS/2 wants to initialize its
select-registry mechanism before the thread initialization attempts to
use it.
---

diff --git a/v7/src/runtime/make.scm b/v7/src/runtime/make.scm
index efa7ac0fc..95c7231f3 100644
--- a/v7/src/runtime/make.scm
+++ b/v7/src/runtime/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 14.52 1994/11/28 05:44:14 cph Exp $
+$Id: make.scm,v 14.53 1994/12/19 21:14:09 cph Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -419,10 +419,10 @@ MIT in each case. |#
    ;; Condition System
    (RUNTIME ERROR-HANDLER)
    (RUNTIME MICROCODE-ERRORS)
-   ;; Threads
-   (RUNTIME THREAD)
    ;; System dependent stuff
    (() INITIALIZE-SYSTEM-PRIMITIVES! #f)
+   ;; Threads
+   (RUNTIME THREAD)
    ;; I/O
    (RUNTIME GENERIC-I/O-PORT)
    (RUNTIME FILE-I/O-PORT)
diff --git a/v8/src/runtime/make.scm b/v8/src/runtime/make.scm
index efa7ac0fc..95c7231f3 100644
--- a/v8/src/runtime/make.scm
+++ b/v8/src/runtime/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 14.52 1994/11/28 05:44:14 cph Exp $
+$Id: make.scm,v 14.53 1994/12/19 21:14:09 cph Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -419,10 +419,10 @@ MIT in each case. |#
    ;; Condition System
    (RUNTIME ERROR-HANDLER)
    (RUNTIME MICROCODE-ERRORS)
-   ;; Threads
-   (RUNTIME THREAD)
    ;; System dependent stuff
    (() INITIALIZE-SYSTEM-PRIMITIVES! #f)
+   ;; Threads
+   (RUNTIME THREAD)
    ;; I/O
    (RUNTIME GENERIC-I/O-PORT)
    (RUNTIME FILE-I/O-PORT)