From fcf93a9064e09bf5981a94054e3144ade0e7bf05 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 18 Jan 2000 20:58:11 +0000 Subject: [PATCH] Rewrite to use packaging system, and to load as subpackage of Edwin. --- v7/src/imail/load.scm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/v7/src/imail/load.scm b/v7/src/imail/load.scm index 3710da556..12a697023 100644 --- a/v7/src/imail/load.scm +++ b/v7/src/imail/load.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: load.scm,v 1.4 2000/01/14 18:09:29 cph Exp $ +;;; $Id: load.scm,v 1.5 2000/01/18 20:58:11 cph Exp $ ;;; ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology ;;; @@ -25,9 +25,5 @@ (load-option 'SOS) (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 + (fluid-let ((*allow-package-redefinition?* #t)) + (package/system-loader "imail" '() 'QUERY)))) \ No newline at end of file -- 2.25.1