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

keep ".LOCKpkgs.rktd" for source install

Browse Source 
Closes PR 15062

(cherry picked from commit 39fda5ec9e)
This commit is contained in:
Matthew Flatt 2015-05-14 07:02:42 -06:00 committed by Ryan Culpepper
parent 1b890c39ee
commit fcfe988631
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/collects/setup/unixstyle-install.rkt
View File

@ -506,8 +506,9 @@
(delete-directory rktdir)))
(define (skip-dot-files!)
(current-skip-filter ; skip all dot-names
(lambda (p) (regexp-match? #rx"^[.]" (basename p)))))
(current-skip-filter
;; skip all dot-names, except ".LOCK..."
(lambda (p) (regexp-match? #rx"^[.](?!LOCK)" (basename p)))))
(define (make-install-copytree)
(define copytree (move/copy-tree #f))