(define (library-list)
(map car *modules*))
(define (library-exports library-name)
(let ((m (cdr (or (assoc library-name *modules*)
(error "No such library" library-name)))))
(env-exports (module-env m))))