From 88466cb17670eb3264d577c4863d26dffd1d46da Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 1 Apr 2000 05:18:55 +0000
Subject: [PATCH] Fix typo in previous change.

---
 v7/src/edwin/dired.scm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 27e9b99ea..35e8a3cd6 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dired.scm,v 1.180 2000/04/01 02:09:10 cph Exp $
+;;; $Id: dired.scm,v 1.181 2000/04/01 05:18:55 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -867,11 +867,10 @@ Actions controlled by variables list-directory-brief-switches
 (define dired-marker-char #\*)
 
 (define (dired-mark-files! buffer predicate)
-  (let ((directory (buffer-default-directory buffer)))
-    (for-each-file-line buffer
-      (lambda (lstart)
-	(if (predicate (dired-pathname lstart))
-	    (dired-mark-1 lstart dired-marker-char))))))
+  (for-each-file-line buffer
+    (lambda (lstart)
+      (if (predicate (dired-pathname lstart))
+	  (dired-mark-1 lstart dired-marker-char)))))
 
 (define (dired-marked-files #!optional mark marker-char)
   (let ((mark
-- 
2.25.1