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

fixed a probable bug in invoking format-time

Browse Source 
svn: r14707
This commit is contained in:
Eli Barzilay 2009-05-04 06:37:27 +00:00
parent 57ff3c2486
commit 5cb9e66cd2
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/compiler/cm.ss
View File

@ -107,10 +107,8 @@
[(< zo-sec ss-sec) (error 'compile-zo [(< zo-sec ss-sec) (error 'compile-zo
"date for newly created .zo file (~a @ ~a) ~ "date for newly created .zo file (~a @ ~a) ~
is before source-file date (~a @ ~a)~a" is before source-file date (~a @ ~a)~a"
zo-name zo-name (format-time zo-sec)
(format-time (seconds->date zo-sec)) ss-name (format-time ss-sec)
ss-name
(format-time (seconds->date ss-sec))
(if (> ss-sec (current-seconds)) (if (> ss-sec (current-seconds))
", which appears to be in the future" ", which appears to be in the future"
""))])) ""))]))