-
This commit is contained in:
@@ -120,6 +120,10 @@
|
||||
|
||||
(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)
|
||||
(build-path os-lib-dir (symbol->string lib-symbol)))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user