.
original commit: cde36566ad3935dadce96b845e4dbd9f6fdcc4da
This commit is contained in:
parent
99375b3b8f
commit
7d9b6d5c89
|
@ -96,11 +96,14 @@
|
|||
(let ([ss-sec (file-or-directory-modify-seconds path)]
|
||||
[zo-sec (file-or-directory-modify-seconds zo-name)])
|
||||
(when (< zo-sec ss-sec)
|
||||
(error 'compile-zo "newly created .zo file (~a @ ~a) is older than .ss file (~a @ ~a)"
|
||||
(error 'compile-zo "date for newly created .zo file (~a @ ~a) is before source-file date (~a @ ~a)~a"
|
||||
zo-name
|
||||
(format-date (seconds->date zo-sec))
|
||||
path
|
||||
(format-date (seconds->date ss-sec)))))
|
||||
(format-date (seconds->date ss-sec))
|
||||
(if (> ss-sec (current-seconds))
|
||||
", which appears to be in the future"
|
||||
""))))
|
||||
(write-deps code path external-deps)))))))
|
||||
(indent (substring (indent) 2 (string-length (indent))))
|
||||
((trace) (format "~aend compile: ~a" (indent) path)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user