From a24885b27d6c26a5ad2dfeb18eaaaf674853bbfe Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 17 Oct 2011 09:48:19 +0200 Subject: [PATCH] fix (web http) write-date for mondays * module/web/http.scm (write-date): Fix bug on Mondays. Jeez! --- module/web/http.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/web/http.scm b/module/web/http.scm index 70db81335..e8765f32d 100644 --- a/module/web/http.scm +++ b/module/web/http.scm @@ -784,7 +784,7 @@ ordered alist." date (time-tai->date (date->time-tai date) 0)))) (display (case (date-week-day date) - ((0) "Sun, ") ((2) "Mon, ") ((2) "Tue, ") + ((0) "Sun, ") ((1) "Mon, ") ((2) "Tue, ") ((3) "Wed, ") ((4) "Thu, ") ((5) "Fri, ") ((6) "Sat, ") (else (error "bad date" date))) port)