From 3473a2eeb222770c67405c5fb8d8854749c6a9ba Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 23 May 2020 14:29:41 -0600 Subject: [PATCH] raco setup: accomodate arbitrary files names when checking dependencies --- racket/collects/setup/private/pkg-deps.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/racket/collects/setup/private/pkg-deps.rkt b/racket/collects/setup/private/pkg-deps.rkt index 16e6229c80..1d8de2cb13 100644 --- a/racket/collects/setup/private/pkg-deps.rkt +++ b/racket/collects/setup/private/pkg-deps.rkt @@ -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 - (append (map path-element->string coll-path) (list base)) - "/"))) + (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)