mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

fix (web http) write-date for mondays

Browse source 
* module/web/http.scm (write-date): Fix bug on Mondays.  Jeez!
This commit is contained in:
Andy Wingo 2011-10-17 09:48:19 +02:00
parent 98518c96fd
commit a24885b27d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/web/http.scm
View file

@ -784,7 +784,7 @@ ordered alist."
date date
(time-tai->date (date->time-tai date) 0)))) (time-tai->date (date->time-tai date) 0))))
(display (case (date-week-day date) (display (case (date-week-day date)
((0) "Sun, ") ((2) "Mon, ") ((2) "Tue, ") ((0) "Sun, ") ((1) "Mon, ") ((2) "Tue, ")
((3) "Wed, ") ((4) "Thu, ") ((5) "Fri, ") ((3) "Wed, ") ((4) "Thu, ") ((5) "Fri, ")
((6) "Sat, ") (else (error "bad date" date))) ((6) "Sat, ") (else (error "bad date" date)))
port) port)