From 3aece4eaecca4fafcab2171044938f0058708ac3 Mon Sep 17 00:00:00 2001 From: Andy Keep Date: Wed, 27 Apr 2016 23:07:43 -0400 Subject: [PATCH] - fixed time-utc->date test in mat time&date-printing to work regardless of what locale (and time zone) the host machine has set. date.ms original commit: 74563ef8261680a21d005af1eef4b70ec1757095 --- LOG | 10 +++------- mats/date.ms | 2 +- 2 files changed, 4 insertions(+), 8 deletions(-) diff --git a/LOG b/LOG index b10c19fb57..c965ac2173 100644 --- a/LOG +++ b/LOG @@ -45,10 +45,6 @@ - liberalized get-mode check for ../mats. it's not our business whether people make their directories group and/or other writeable. 6.ms -- make test now prints the actual relative path to summary in the - "check summary" message, whether invoked from the top-level directory - or from the workarea. - Makefile.in, Makefile-workarea.in -- configure now just uses cat to copy Makefile-workarea.in to $w/workarea, - since the file is presently the same regardless of the configuration. - configure +- fixed time-utc->date test in mat time&date-printing to work regardless of + what locale (and time zone) the host machine has set. + date.ms diff --git a/mats/date.ms b/mats/date.ms index 9cb92892f5..eebeac5f05 100644 --- a/mats/date.ms +++ b/mats/date.ms @@ -563,6 +563,6 @@ (with-output-to-string (lambda () (pretty-print (make-time 'time-duration 1 -1)))) "#\n") (equal? - (with-output-to-string (lambda () (write (time-utc->date (make-time 'time-utc 708626501 1427137297))))) + (with-output-to-string (lambda () (write (time-utc->date (make-time 'time-utc 708626501 1427137297) -14400)))) "#") )