2021-08-17 05:36:40 -04:00
|
|
|
(define-library (lassik library-inspection)
|
|
|
|
|
(export library-list
|
|
|
|
|
library-exports)
|
|
|
|
|
(import (scheme base))
|
|
|
|
|
(cond-expand
|
|
|
|
|
(chibi
|
|
|
|
|
(import (only (meta)
|
|
|
|
|
*modules*
|
|
|
|
|
env-exports
|
|
|
|
|
module-env)))
|
|
|
|
|
(gauche
|
|
|
|
|
(import (only (gauche base)
|
|
|
|
|
all-modules
|
|
|
|
|
find-module
|
|
|
|
|
module-exports
|
|
|
|
|
module-name))))
|
|
|
|
|
(cond-expand
|
2021-08-21 02:55:49 -04:00
|
|
|
(chibi (include "library-inspection.chibi.scm"))
|
|
|
|
|
(gauche (include "library-inspection.gauche.scm"))))
|
