From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Jan 2000 20:58:11 +0000 (+0000)
Subject: Rewrite to use packaging system, and to load as subpackage of Edwin.
X-Git-Tag: 20090517-FFI~4316
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fcf93a9064e09bf5981a94054e3144ade0e7bf05;p=mit-scheme.git

Rewrite to use packaging system, and to load as subpackage of Edwin.
---

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