From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 15 Jul 1997 18:32:04 +0000 (+0000)
Subject: Disregard working directory when file is loaded; use directory that
X-Git-Tag: 20090517-FFI~5057
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=301e99a7cc7a783e062bb1b91eb713bd7540fe49;p=mit-scheme.git

Disregard working directory when file is loaded; use directory that
file is loaded from instead.
---

diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm
index 2a0bf98be..49636ff6d 100644
--- a/v8/src/sf/make.scm
+++ b/v8/src/sf/make.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 4.31 1995/01/06 18:36:17 cph Exp $
+$Id: make.scm,v 4.32 1997/07/15 18:32:04 adams Exp $
 
-Copyright (c) 1988-95 Massachusetts Institute of Technology
+Copyright (c) 1988-1997 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -45,6 +45,8 @@ MIT in each case. |#
      (pathname-as-directory "sf")
      (lambda ()
        (package/system-loader "sf" '() 'QUERY)))
+    ((package/reference (find-package '(SCODE-OPTIMIZER EXPANSION))
+			'USUAL-INTEGRATIONS/INITIALIZE-EXPANDERS!))
     ((package/reference (find-package '(SCODE-OPTIMIZER))
 			'USUAL-INTEGRATIONS/CACHE!))))
-(add-system! (make-system "SF" 4 31 '()))
\ No newline at end of file
+(add-system! (make-system "SF" 4 32 '()))
\ No newline at end of file