From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 20 Feb 1992 05:30:14 +0000 (+0000)
Subject: Back-merge with 7.1.3
X-Git-Tag: 20090517-FFI~7197^2~4
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=aa1bda314a2f9f4fbbd4531082c1a9ffaadc05e2;p=mit-scheme.git

Back-merge with 7.1.3
---

diff --git a/v7/src/compiler/machines/i386/make.scm b/v7/src/compiler/machines/i386/make.scm
index e47dfca96..c186c9c94 100644
--- a/v7/src/compiler/machines/i386/make.scm
+++ b/v7/src/compiler/machines/i386/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/make.scm,v 1.1 1992/02/13 16:40:25 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/make.scm,v 1.1.1.1 1992/02/20 05:30:14 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -36,4 +36,9 @@ MIT in each case. |#
 
 (declare (usual-integrations))
 
-((load "base/make") "Intel i386")
\ No newline at end of file
+(package/system-loader "comp" '() 'QUERY)
+(for-each (lambda (name)
+	    ((package/reference (find-package name) 'INITIALIZE-PACKAGE!)))
+	  '((COMPILER MACROS)
+	    (COMPILER DECLARATIONS)))
+(add-system! (make-system "Intel i386" 4 87 '()))
\ No newline at end of file