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=0e947e1d14597651c5762a4209225c472bdaef45 The branch, stable-2.0 has been updated via 0e947e1d14597651c5762a4209225c472bdaef45 (commit) from 9d608ede96b67ad8f5a3bbab1837bdf0ee39ed0a (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 0e947e1d14597651c5762a4209225c472bdaef45 Author: Daniel Hartwig <mand...@gmail.com> Date: Tue Dec 27 22:24:28 2011 +0800 permit non-date values for Expires header * module/web/http.scm ("Expires"): Permit (some) non-date values. ----------------------------------------------------------------------- Summary of changes: module/web/http.scm | 10 +++++++++- 1 files changed, 9 insertions(+), 1 deletions(-) diff --git a/module/web/http.scm b/module/web/http.scm index aa099fe..b060af9 100644 --- a/module/web/http.scm +++ b/module/web/http.scm @@ -1514,7 +1514,15 @@ phrase\"." ;; Expires = HTTP-date ;; -(declare-date-header! "Expires") +(define *date-in-the-past* (parse-date "Thu, 01 Jan 1970 00:00:00 GMT")) + +(declare-header! "Expires" + (lambda (str) + (if (member str '("0" "-1")) + *date-in-the-past* + (parse-date str))) + date? + write-date) ;; Last-Modified = HTTP-date ;; hooks/post-receive -- GNU Guile
