From 7b7a5d29087fe32f9c67b7bffba595c87910d449 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 23 May 2000 21:51:26 +0000 Subject: [PATCH] Use pivot of 1970, since that is the date that will usually screw the unix libc functions. --- v7/src/runtime/datime.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm index ccf21757f..3684ffc41 100644 --- a/v7/src/runtime/datime.scm +++ b/v7/src/runtime/datime.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: datime.scm,v 14.29 2000/05/23 21:48:53 cph Exp $ +$Id: datime.scm,v 14.30 2000/05/23 21:51:26 cph Exp $ Copyright (c) 1988-2000 Massachusetts Institute of Technology @@ -429,7 +429,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (let ((n (string->number string))) (if (not (exact-nonnegative-integer? n)) (error:bad-range-argument string 'STRING->YEAR)) - (cond ((< n 38) (+ 2000 n)) + (cond ((< n 70) (+ 2000 n)) ((< n 100) (+ 1900 n)) (else n)))) -- 2.25.1