From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 Nov 1995 23:48:18 +0000 (+0000)
Subject: Supply a default file-time string if the FILE-TIME->STRING primitive
X-Git-Tag: 20090517-FFI~5747
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dd691a4efe1bd373accbbdffcdcb6e0df4e22859;p=mit-scheme.git

Supply a default file-time string if the FILE-TIME->STRING primitive
is unable to return a meaningful answer.
---

diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm
index 01045b5e3..795a85715 100644
--- a/v7/src/runtime/dosprm.scm
+++ b/v7/src/runtime/dosprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dosprm.scm,v 1.35 1995/10/28 01:14:16 cph Exp $
+$Id: dosprm.scm,v 1.36 1995/11/10 23:48:18 cph Exp $
 
 Copyright (c) 1992-95 Massachusetts Institute of Technology
 
@@ -257,8 +257,9 @@ MIT in each case. |#
 		    user-name)))))
       (merge-pathnames "\\")))
 
-(define file-time->string
-  (ucode-primitive file-time->string 1))
+(define (file-time->string time)
+  (or ((ucode-primitive file-time->string 1) time)
+      "Thu Jan  1 00:00:00 1970"))
 
 (define (decode-file-time time) (decode-universal-time time))
 (define (encode-file-time dt) (encode-universal-time dt))
diff --git a/v7/src/runtime/ntprm.scm b/v7/src/runtime/ntprm.scm
index aedc2ee7d..e8c4000c4 100644
--- a/v7/src/runtime/ntprm.scm
+++ b/v7/src/runtime/ntprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ntprm.scm,v 1.2 1995/10/28 03:00:09 cph Exp $
+$Id: ntprm.scm,v 1.3 1995/11/10 23:47:59 cph Exp $
 
 Copyright (c) 1992-95 Massachusetts Institute of Technology
 
@@ -274,8 +274,9 @@ MIT in each case. |#
 	 (pathname-as-directory
 	  (merge-pathnames (or homepath home) homedrive)))))
 
-(define file-time->string
-  (ucode-primitive file-time->string 1))
+(define (file-time->string time)
+  (or ((ucode-primitive file-time->string 1) time)
+      "Thu Jan  1 00:00:00 1970"))
 
 (define (decode-file-time time) (decode-universal-time time))
 (define (encode-file-time dt) (encode-universal-time dt))