(module list-chicken-import-libs () (import scheme) (import (chicken file) (chicken foreign) (chicken pathname) (chicken pretty-print) (chicken string)) (pp (cons "srfi-4" (map (lambda (unit) (string-chomp (pathname-strip-directory unit) ".import.so")) (glob (make-pathname (foreign-value "C_INSTALL_EGG_HOME" c-string) "chicken*.import.so"))))) ) ;; end module