summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-10-17 09:48:19 +0200
committerAndy Wingo <wingo@pobox.com>2011-10-17 09:52:04 +0200
commita24885b27d6c26a5ad2dfeb18eaaaf674853bbfe (patch)
tree2fc870ddb27a602c8d6af934dee4a93384a2cd87
parent98518c96fdf3152f69e863f8022c250b34526867 (diff)
downloadguile-a24885b27d6c26a5ad2dfeb18eaaaf674853bbfe.tar.gz
fix (web http) write-date for mondays
* module/web/http.scm (write-date): Fix bug on Mondays. Jeez!
-rw-r--r--module/web/http.scm2
1 files changed, 1 insertions, 1 deletions
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)