raco setup: accomodate arbitrary files names when checking dependencies

This commit is contained in:
Matthew Flatt 2020-05-23 14:29:41 -06:00
parent d590eee0c7
commit 3473a2eeb2

View File

@ -368,9 +368,11 @@
(or (and m (bytes->string/utf-8 (cadr m)))
;; In case the original file name had no suffix:
"unknown")))
(define in-mod `(lib ,(string-join
(define in-mod (if (module-path? base)
`(lib ,(string-join
(append (map path-element->string coll-path) (list base))
"/")))
"/"))
(build-path dir base)))
(define zo-path (build-path dir zo-f))
(let/ec esc
(define mod-code (with-handlers ([exn:fail? (lambda (exn)