reduce timestamp adjustments in raco pkg create

Comments in the implementation suggest that a timestamp
specialization was intended for directories, which makes
sense given that directory-modification dates are
not preserved when unpacking an archive. The change
also affected all bytecode timestamps, however, which
can create inconsistencies across package creations.
This commit is contained in:
Matthew Flatt 2015-08-21 18:53:03 -06:00
parent 725536b8b4
commit 787500f339

View File

@ -47,8 +47,7 @@
;; To make checksums more consistent, set a directory's timestamp to
;; the latest time of any of its source files.
(define (use-real-timestamp? p)
(and (file-exists? p)
(regexp-match? #rx"[.](?:rkt|ss|scrbl|txt)$" p)))
(file-exists? p))
(define latest-timestamp
(for/fold ([ts #f]) ([f (in-directory dir)])
(define fts (and (use-real-timestamp? f)