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 01045b5e3ee3e1ed5cd15de1e31fd70bc4807fca..795a857152f360fc6598dcb49e8752f95a85bf1b 100644 (file)
--- 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 aedc2ee7dbfbd716cb743278d2aac3121ecd489a..e8c4000c47e1c41eecc19b0f7b992eb7337a6af4 100644 (file)
--- 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))