From 5f42139b2886c4b07ebbcc2768316e2da12a8ce8 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 7 Jan 2000 22:50:51 +0000 Subject: [PATCH] Add code to bind correct load directory. --- v7/src/imail/load.scm | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) 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 -- 2.25.1