From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Jan 2000 22:50:51 +0000 (+0000)
Subject: Add code to bind correct load directory.
X-Git-Tag: 20090517-FFI~4371
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5f42139b2886c4b07ebbcc2768316e2da12a8ce8;p=mit-scheme.git

Add code to bind correct load directory.
---

diff --git a/v7/src/imail/load.scm b/v7/src/imail/load.scm
index 9c6ba2813..b81e83fd0 100644
--- a/v7/src/imail/load.scm
+++ b/v7/src/imail/load.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: load.scm,v 1.1 2000/01/04 22:51:42 cph Exp $
+;;; $Id: load.scm,v 1.2 2000/01/07 22:50:51 cph Exp $
 ;;;
 ;;; Copyright (c) 1999 Massachusetts Institute of Technology
 ;;;
@@ -21,9 +21,11 @@
 ;;;; IMAIL mail reader: loader
 
 (load-option 'SOS)
-(load "imail-util")
-(load "rfc822")
-(load "imail-core")
-(load "imail-file")
-(load "imail-rmail")
-(load "imail-umail")
\ No newline at end of file
+(with-working-directory-pathname (directory-pathname (current-load-pathname))
+  (lambda ()
+    (load "imail-util")
+    (load "rfc822")
+    (load "imail-core")
+    (load "imail-file")
+    (load "imail-rmail")
+    (load "imail-umail")))
\ No newline at end of file