From 1e8bf3cfaa87ed25286e78d33fd492442e7f2709 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 27 Nov 2020 11:00:12 -0700 Subject: [PATCH] skip "pb/.git" in a source distribution Closes #3508 --- racket/collects/setup/unixstyle-install.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/setup/unixstyle-install.rkt b/racket/collects/setup/unixstyle-install.rkt index f50a03f4e3..80b4d49538 100644 --- a/racket/collects/setup/unixstyle-install.rkt +++ b/racket/collects/setup/unixstyle-install.rkt @@ -577,7 +577,7 @@ ;; Copy pb boot files, if present (let ([src-pb "src/ChezScheme/boot/pb"]) (when (directory-exists? src-pb) - (parameterize ([current-skip-filter (lambda (p) #f)]) + (parameterize ([current-skip-filter dot-file?]) (do-tree src-pb (build-path base-destdir src-pb) #:build-path? #t)))) ;; Remove directories that get re-created: (define (remove! dst*) (rm (dir: dst*)))