From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 26 Oct 1999 20:51:25 +0000 (+0000)
Subject: Set the working directory when loading this file.
X-Git-Tag: 20090517-FFI~4435
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=048e26092a3816fad3efcb71d50e78eaad6f32b0;p=mit-scheme.git

Set the working directory when loading this file.
---

diff --git a/v7/src/rcs/make.scm b/v7/src/rcs/make.scm
index d3b3d82a1..63247a72d 100644
--- a/v7/src/rcs/make.scm
+++ b/v7/src/rcs/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 1.4 1999/01/02 06:11:34 cph Exp $
+$Id: make.scm,v 1.5 1999/10/26 20:51:25 cph Exp $
 
 Copyright (c) 1988, 1991, 1999 Massachusetts Institute of Technology
 
@@ -24,5 +24,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 (declare (usual-integrations))
 
 (load-option 'hash-table)
-(package/system-loader "rcs" '() 'QUERY)
+(with-working-directory-pathname (directory-pathname (current-load-pathname))
+  (lambda ()
+    (package/system-loader "rcs" '() 'QUERY)))
 (add-identification! "RCS" 2 1)
\ No newline at end of file