From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 May 2000 21:51:26 +0000 (+0000)
Subject: Use pivot of 1970, since that is the date that will usually screw the
X-Git-Tag: 20090517-FFI~3690
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7b7a5d29087fe32f9c67b7bffba595c87910d449;p=mit-scheme.git

Use pivot of 1970, since that is the date that will usually screw the
unix libc functions.
---

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))))