raco setup: accomodate arbitrary files names when checking dependencies
This commit is contained in:
parent
d590eee0c7
commit
3473a2eeb2
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user