home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mitsch75.zip / scheme-7_5_17-src.zip / scheme-7.5.17 / src / imail / fake-env.scm < prev    next >
Text File  |  2000-06-08  |  451b  |  13 lines
  1. (let ((new-child
  2.        (lambda (parent name)
  3.      (let ((package (name->package parent)))
  4.        (package/add-child! package
  5.                    name
  6.                    (in-package (package/environment package)
  7.                  (make-environment)))))))
  8.   (new-child '(EDWIN) 'IMAIL)
  9.   (new-child '(EDWIN IMAIL) 'IMAP-RESPONSE)
  10.   (new-child '(EDWIN IMAIL) 'IMAP-SYNTAX)
  11.   (new-child '(EDWIN IMAIL) 'PARSER)
  12.   (new-child '(EDWIN IMAIL) 'REXP)
  13.   (new-child '(EDWIN IMAIL) 'URL))