← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/mit-scheme/intrepid-updates

« back to all changes in this revision

Viewing changes to src/imail/fake-env.scm

  • Committer: Bazaar Package Importer
  • Author(s): Chris Hanson
  • Date: 2002-03-14 17:04:07 UTC
  • Revision ID: james.westby@ubuntu.com-20020314170407-m5lg1d6bdsl9lv0s
Tags: upstream-7.7.0
Import upstream version 7.7.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/imail/fake-env.scm
 
1
(let ((new-child
 
2
       (lambda (parent name)
 
3
         (let ((package (name->package parent)))
 
4
           (package/add-child! package
 
5
                               name
 
6
                               (extend-top-level-environment
 
7
                                (package/environment package)))))))
 
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))
 
 
b'\\ No newline at end of file'