Backup filenames being returned for deletion are supposed to be fully

qualified; they were not.

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index fce1f4d91714c08505009a9bbc96704002069d67..35d84554579da339f87d3f6a16a70c372cc6efce 100644 (file)
--- a/v7/src/edwin/dosfile.scm
+++ b/v7/src/edwin/dosfile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: dosfile.scm,v 1.9 1997/03/04 06:43:04 cph Exp $
+;;;    $Id: dosfile.scm,v 1.10 1997/03/14 05:12:55 cph Exp $
 ;;;
 ;;;    Copyright (c) 1994-97 Massachusetts Institute of Technology
 ;;;
@@ -195,7 +195,10 @@ Includes the new backup.  Must be > 0."
                                    (- (ref-variable kept-new-versions buffer)
                                       1))))
                            (if (< start end)
-                               (map car (sublist backups start end))
+                               (map (let ((dir (directory-pathname truename)))
+                                      (lambda (entry)
+                                        (merge-pathnames (car entry) dir)))
+                                    (sublist backups start end))
                                '()))))))))))
 
 (define (dos/make-backup-pathname pathname version suffix)