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
This commit is contained in:
Matthew Flatt 2015-05-14 07:02:42 -06:00
parent c2cd44c928
commit 39fda5ec9e
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))) (delete-directory rktdir)))
(define (skip-dot-files!) (define (skip-dot-files!)
(current-skip-filter ; skip all dot-names (current-skip-filter
(lambda (p) (regexp-match? #rx"^[.]" (basename p))))) ;; skip all dot-names, except ".LOCK..."
(lambda (p) (regexp-match? #rx"^[.](?!LOCK)" (basename p)))))
(define (make-install-copytree) (define (make-install-copytree)
(define copytree (move/copy-tree #f)) (define copytree (move/copy-tree #f))