-
This commit is contained in:
@@ -120,6 +120,10 @@
|
|||||||
|
|
||||||
(define os-lib-dir (build-path lib-dir (symbol->string os) (symbol->string arch)))
|
(define os-lib-dir (build-path lib-dir (symbol->string os) (symbol->string arch)))
|
||||||
|
|
||||||
|
(let ((files (directory-list os-lib-dir)))
|
||||||
|
(displayln (format "os-lib-dir: ~a" os-lib-dir))
|
||||||
|
(displayln (format "os-lib-dir-contents: ~a" files)))
|
||||||
|
|
||||||
(define (libname lib-symbol)
|
(define (libname lib-symbol)
|
||||||
(build-path os-lib-dir (symbol->string lib-symbol)))
|
(build-path os-lib-dir (symbol->string lib-symbol)))
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user