8 lines
235 B
Scheme
8 lines
235 B
Scheme
|
(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))))
|