From 3db1c5594bae68d0d8e0001b702ee8c72674ef40 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 13 Nov 1993 02:23:21 +0000 Subject: [PATCH] Use declare-shared-library to make -compiler and -edwin work in the C back end. --- v7/src/compiler/machines/C/make.scm | 12 +++++++----- v7/src/edwin/make.scm | 5 +++-- 2 files changed, 10 insertions(+), 7 deletions(-) diff --git a/v7/src/compiler/machines/C/make.scm b/v7/src/compiler/machines/C/make.scm index d01edc037..757bbaa7b 100644 --- a/v7/src/compiler/machines/C/make.scm +++ b/v7/src/compiler/machines/C/make.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: make.scm,v 1.1 1993/06/08 06:13:32 gjr Exp $ +$Id: make.scm,v 1.2 1993/11/13 02:22:34 gjr Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -36,7 +36,9 @@ MIT in each case. |# (declare (usual-integrations)) -(let ((value ((load "base/make") "C"))) - (set! (access compiler:compress-top-level? (->environment '(compiler))) - true) - value) \ No newline at end of file +(begin + (declare-shared-library "sf+compiler" (lambda () true)) + (let ((value ((load "base/make") "C"))) + (set! (access compiler:compress-top-level? (->environment '(compiler))) + true) + value)) \ No newline at end of file diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm index b018dd26b..2ae899504 100644 --- a/v7/src/edwin/make.scm +++ b/v7/src/edwin/make.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: make.scm,v 3.79 1993/08/17 21:31:46 cph Exp $ +$Id: make.scm,v 3.80 1993/11/13 02:23:21 gjr Exp $ -Copyright (c) 1989-93 Massachusetts Institute of Technology +Copyright (c) 1989-1993 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -36,6 +36,7 @@ MIT in each case. |# (declare (usual-integrations)) +(declare-shared-library "edwin" (lambda () true)) (package/system-loader "edwin" `((os-type . ,(intern (microcode-identification-item 'OS-NAME-STRING)))) -- 2.25.1