From 763aed6021d41b7a77db039540c3741d4a28cf4c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 12 Feb 1998 02:58:27 +0000 Subject: [PATCH] Use common loader for compiler. --- v7/src/compiler/machines/sparc/make.scm | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) 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 -- 2.25.1