From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Apr 2000 21:48:31 +0000 (+0000)
Subject: Initial registration.
X-Git-Tag: 20090517-FFI~4005
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5a8d4076e5f8131ac0126e167e88b9f5b317a34f;p=mit-scheme.git

Initial registration.
---

diff --git a/v7/src/imail/fake-env.scm b/v7/src/imail/fake-env.scm
new file mode 100644
index 000000000..09d9d31b9
--- /dev/null
+++ b/v7/src/imail/fake-env.scm
@@ -0,0 +1,13 @@
+(let ((new-child
+       (lambda (parent name)
+	 (let ((package (name->package parent)))
+	   (package/add-child! package
+			       name
+			       (in-package (package/environment package)
+				 (make-environment)))))))
+  (new-child '(EDWIN) 'IMAIL)
+  (new-child '(EDWIN IMAIL) 'IMAP-SYNTAX)
+  (new-child '(EDWIN IMAIL) 'PARSER)
+  (new-child '(EDWIN IMAIL) 'REXP)
+  (new-child '(EDWIN IMAIL) 'RFC822)
+  (new-child '(EDWIN IMAIL) 'URL))
\ No newline at end of file