suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

raco setup: accomodate arbitrary files names when checking dependencies

Browse Source
This commit is contained in:
Matthew Flatt 2020-05-23 14:29:41 -06:00
parent d590eee0c7
commit 3473a2eeb2
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/collects/setup/private/pkg-deps.rkt
View File

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