From: Chris Hanson Date: Tue, 9 Sep 2008 16:28:19 +0000 (+0000) Subject: Rename DECODED-TIME->GMT to DECODED-TIME->UTC. X-Git-Tag: 20090517-FFI~164 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5c7438d2bce9ee36b9052b31db387e762a934400;p=mit-scheme.git Rename DECODED-TIME->GMT to DECODED-TIME->UTC. --- diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm index 02609e517..5b2af20d0 100644 --- a/v7/src/runtime/datime.scm +++ b/v7/src/runtime/datime.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: datime.scm,v 14.51 2008/09/09 05:23:49 cph Exp $ +$Id: datime.scm,v 14.52 2008/09/09 16:28:10 cph Exp $ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -184,7 +184,7 @@ USA. (define (decoded-time/daylight-savings-time? dt) (> (decoded-time/daylight-savings-time dt) 0)) -(define (decoded-time->gmt dt) +(define (decoded-time->utc dt) (if (let ((zone (decoded-time/zone dt))) (or (not zone) (= zone 0))) @@ -250,7 +250,7 @@ USA. port))))) (define (write-decoded-time-as-http dt port) - (%write-decoded-time-1 (decoded-time->gmt dt) port) + (%write-decoded-time-1 (decoded-time->utc dt) port) (write-string " GMT" port)) (define (%write-decoded-time-1 dt port) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index 8d399cb6c..28e472d52 100644 --- a/v7/src/runtime/runtime.pkg +++ b/v7/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: runtime.pkg,v 14.677 2008/09/09 06:36:20 cph Exp $ +$Id: runtime.pkg,v 14.678 2008/09/09 16:28:19 cph Exp $ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -1268,7 +1268,7 @@ USA. day-of-week/long-string day-of-week/short-string decoded-time->ctime-string - decoded-time->gmt + decoded-time->utc decoded-time->iso8601-string decoded-time->rfc2822-string decoded-time->universal-time