manual-ex.rkt (258B)
1 #lang scheme/base 2 (require "../struct.rkt") 3 4 ; XXX unknown contracts 5 (provide (struct-out exporting-libraries) 6 current-signature) 7 8 (define-struct (exporting-libraries element) (libs source-libs pkgs)) 9 10 (define current-signature (make-parameter #f))