From aa1bda314a2f9f4fbbd4531082c1a9ffaadc05e2 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 20 Feb 1992 05:30:14 +0000 Subject: [PATCH] Back-merge with 7.1.3 --- v7/src/compiler/machines/i386/make.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) 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 -- 2.25.1