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

Preserve the executable bit of the file

Browse Source
This commit is contained in:
Eli Barzilay 2010-04-23 17:36:55 -04:00
parent 2434220fa5
commit f4c08ccb08
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/meta/props
View File

@ -314,8 +314,9 @@ path/s is either such a string or a list of them.
sub))))
(and (or (pair? (tree-subs tree)) (pair? (tree-props tree))) tree))
(let (;; temp file in the same directory => fail early if cannot write to it
;; and make a rename possible
[temp (make-temporary-file (format "~a~~a" this-file))])
;; and make a rename possible; copy from this file to preserve being
;; executable
[temp (make-temporary-file (format "~a~~a" this-file) this-file)])
(dynamic-wind
void
(lambda ()