From dd691a4efe1bd373accbbdffcdcb6e0df4e22859 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 10 Nov 1995 23:48:18 +0000 Subject: [PATCH] Supply a default file-time string if the FILE-TIME->STRING primitive is unable to return a meaningful answer. --- v7/src/runtime/dosprm.scm | 7 ++++--- v7/src/runtime/ntprm.scm | 7 ++++--- 2 files changed, 8 insertions(+), 6 deletions(-) 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)) -- 2.25.1