From 5cb9e66cd2189b4a0698c1b25aa4a5f10de1f69b Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 4 May 2009 06:37:27 +0000 Subject: [PATCH] fixed a probable bug in invoking format-time svn: r14707 --- collects/compiler/cm.ss | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/collects/compiler/cm.ss b/collects/compiler/cm.ss index fda77af2bb..e489f2109e 100644 --- a/collects/compiler/cm.ss +++ b/collects/compiler/cm.ss @@ -107,10 +107,8 @@ [(< zo-sec ss-sec) (error 'compile-zo "date for newly created .zo file (~a @ ~a) ~ is before source-file date (~a @ ~a)~a" - zo-name - (format-time (seconds->date zo-sec)) - ss-name - (format-time (seconds->date ss-sec)) + zo-name (format-time zo-sec) + ss-name (format-time ss-sec) (if (> ss-sec (current-seconds)) ", which appears to be in the future" ""))]))