Use declare-shared-library to make -compiler and -edwin work in the C

back end.

diff --git a/v7/src/compiler/machines/C/make.scm b/v7/src/compiler/machines/C/make.scm
index d01edc0374ff377e19a234000624ac67265e2486..757bbaa7b66389ef4ba6dc2a51f955f51b9462f4 100644 (file)
--- 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 b018dd26b0d38cee7e63aa3ef53404132de55da3..2ae899504b07b08055f58daba06399612c0a48de 100644 (file)
--- 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))))