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 e47dfca9644e347d481521cdf8432e3cad5d3444..c186c9c94e289b48365bd09037f524a23a216b22 100644 (file)
--- 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