From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Feb 1998 02:58:27 +0000 (+0000)
Subject: Use common loader for compiler.
X-Git-Tag: 20090517-FFI~4867
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=763aed6021d41b7a77db039540c3741d4a28cf4c;p=mit-scheme.git

Use common loader for compiler.
---

diff --git a/v7/src/compiler/machines/sparc/make.scm b/v7/src/compiler/machines/sparc/make.scm
index cf9155d00..905736090 100644
--- a/v7/src/compiler/machines/sparc/make.scm
+++ b/v7/src/compiler/machines/sparc/make.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/sparc/make.scm,v 1.1 1993/06/08 06:11:02 gjr Exp $
+$Id: make.scm,v 1.2 1998/02/12 02:58:27 cph Exp $
 
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-98 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -36,10 +36,7 @@ MIT in each case. |#
 
 (declare (usual-integrations))
 
-(package/system-loader "comp" '() 'QUERY)
-(for-each (lambda (name)
-	    ((package/reference (find-package name) 'INITIALIZE-PACKAGE!)))
-	  '((COMPILER MACROS)
-	    (COMPILER DECLARATIONS)))
-(set! (access endianness (->environment '(COMPILER))) 'BIG)
-(add-system! (make-system "Liar (SPARC)" 4 87 '()))
\ No newline at end of file
+(let* ((val ((load "base/make") "SPARC"))
+       (env (->environment '(COMPILER))))
+  (set! (access endianness env) 'BIG)
+  val)
\ No newline at end of file