11 lines
252 B
Scheme
11 lines
252 B
Scheme
#lang scheme/base
|
|
(require "../struct.ss")
|
|
|
|
; XXX unknown contracts
|
|
(provide (struct-out exporting-libraries)
|
|
current-signature)
|
|
|
|
(define-struct (exporting-libraries element) (libs source-libs))
|
|
|
|
(define current-signature (make-parameter #f))
|