From 78de984c4ae4615b583b91675ca8c996cfa8dbe1 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 24 Sep 2008 05:57:00 +0000 Subject: [PATCH] Eliminate ISO8601-SEPARATE-WITH-T?; according to the standard, the T is required and using space is incorrect. --- v7/src/runtime/datime.scm | 6 ++---- v7/src/runtime/runtime.pkg | 3 +-- 2 files changed, 3 insertions(+), 6 deletions(-) diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm index 05962f445..bb38ce9b9 100644 --- a/v7/src/runtime/datime.scm +++ b/v7/src/runtime/datime.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: datime.scm,v 14.53 2008/09/09 16:30:47 cph Exp $ +$Id: datime.scm,v 14.54 2008/09/24 05:56:56 cph Exp $ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -538,7 +538,7 @@ USA. (write-d2 (decoded-time/month dt) port) (write-char #\- port) (write-d2 (decoded-time/day dt) port) - (write-char (if iso8601-separate-with-t? #\T #\space) port) + (write-char #\T port) (write-d2 (decoded-time/hour dt) port) (write-char #\: port) (write-d2 (decoded-time/minute dt) port) @@ -551,8 +551,6 @@ USA. zone) port)))) -(define iso8601-separate-with-t? #t) - (define (universal-time->local-iso8601-string time) (decoded-time->iso8601-string (universal-time->local-decoded-time time))) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index 5f419c0fe..4d9c68d15 100644 --- a/v7/src/runtime/runtime.pkg +++ b/v7/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: runtime.pkg,v 14.686 2008/09/23 23:59:19 cph Exp $ +$Id: runtime.pkg,v 14.687 2008/09/24 05:57:00 cph Exp $ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -1301,7 +1301,6 @@ USA. global-decoded-time guarantee-decoded-time guarantee-time-zone - iso8601-separate-with-t? iso8601-string->decoded-time iso8601-string->file-time iso8601-string->universal-time -- 2.25.1