Assume that FILE-TIME->STRING will return a plausible string under all

circumstances.

diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index fcaccb5bdb859d4a79413ac645afb4c7ed418286..9f77d08089164614ba5e5926c12af05103740707 100644 (file)
--- a/v7/src/edwin/dos.scm
+++ b/v7/src/edwin/dos.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: dos.scm,v 1.32 1995/11/10 23:48:51 cph Exp $
+;;;    $Id: dos.scm,v 1.33 1995/11/10 23:49:18 cph Exp $
 ;;;
 ;;;    Copyright (c) 1992-95 Massachusetts Institute of Technology
 ;;;
@@ -152,7 +152,6 @@
 
 (define (generate-dired-entry! file point)
   (define (file-attributes/ls-time-string attr)
-    ;; Swap year around to the start
     (let ((time-string
           (file-time->string (file-attributes/modification-time attr))))
       ;; Move the year from end to start, carrying leading space.