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

use the supplied security guard in one more place where compiler/cm needs write permission

Browse Source
This commit is contained in:
Robby Findler 2011-08-10 07:41:19 -05:00
parent b27eacd4d0
commit e043297ef8
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/compiler/cm.rkt
View File

@ -143,11 +143,12 @@
dir))
(define (touch path)
(file-or-directory-modify-seconds
path
(current-seconds)
(lambda ()
(close-output-port (open-output-file path #:exists 'append)))))
(with-compiler-security-guard
(file-or-directory-modify-seconds
path
(current-seconds)
(lambda ()
(close-output-port (open-output-file path #:exists 'append))))))
(define (try-file-time path)
(file-or-directory-modify-seconds path #f (lambda () #f)))

7
collects/scribblings/raco/make.scrbl
View File

@ -211,7 +211,7 @@ when there is no corresponding original source file.
If the @racket[security-guard] argument is supplied, it is used when
creating @filepath{.zo} files, @filepath{.dep} files, and @filepath{compiled/}
directories.
directories, and when it adjusts the timestamps for existing files.
If it is @racket[#f], then
the security guard in the @racket[current-security-guard] when
the files are created is used (not the security guard at the point
@ -244,8 +244,9 @@ If @racket[file] is compiled from source, then
@racket[read-syntax] is used for any required files, however.
If @racket[security-guard] is not @racket[#f], then the provided security
guard is used when creating the @filepath{compiled/} directories, as well
as the @filepath{.dep} and @filepath{.zo} files. If it is @racket[#f], then
guard is used when creating the @filepath{compiled/} directories,
@filepath{.dep} and @filepath{.zo} files, and when it adjusts the timestamps
of existing files. If it is @racket[#f], then
the security guard in the @racket[current-security-guard] when
the files are created is used (not the security guard at the point
@racket[managed-compile-zo] is called).