[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-172-ga24885b

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=a24885b27d6c26a5ad2dfeb18eaaaf674853bbfe

The branch, stable-2.0 has been updated
       via  a24885b27d6c26a5ad2dfeb18eaaaf674853bbfe (commit)
      from  98518c96fdf3152f69e863f8022c250b34526867 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit a24885b27d6c26a5ad2dfeb18eaaaf674853bbfe
Author: Andy Wingo <address@hidden>
Date:   Mon Oct 17 09:48:19 2011 +0200

    fix (web http) write-date for mondays
    
    * module/web/http.scm (write-date): Fix bug on Mondays.  Jeez!

-----------------------------------------------------------------------

Summary of changes:
 module/web/http.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/module/web/http.scm b/module/web/http.scm
index 70db813..e8765f3 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)


hooks/post-receive
-- 
GNU Guile