Initial registration.

diff --git a/v7/src/imail/fake-env.scm b/v7/src/imail/fake-env.scm
new file mode 100644 (file)
index 0000000..09d9d31
--- /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