From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 30 Sep 1992 04:00:09 +0000 (+0000)
Subject: Eliminate spurious variable binding.
X-Git-Tag: 20090517-FFI~8883
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c51531067bded99a5e2c2c97b891542ca73af642;p=mit-scheme.git

Eliminate spurious variable binding.
---

diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index 4c1f4a798..c1df0b91d 100644
--- a/v7/src/edwin/dos.scm
+++ b/v7/src/edwin/dos.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dos.scm,v 1.3 1992/09/23 23:05:22 jinx Exp $
+;;;	$Id: dos.scm,v 1.4 1992/09/30 04:00:09 jinx Exp $
 ;;;
 ;;;	Copyright (c) 1992 Massachusetts Institute of Technology
 ;;;
@@ -396,11 +396,13 @@ Includes the new backup.  Must be > 0."
   false?)
 
 (define (read-directory pathname switches mark)
-  (let ((directory (directory-pathname pathname)))
-    (if (file-directory? pathname)
-	(let ((dir (->namestring (pathname-as-directory pathname))))
-	  (generate-dired-listing! (string-append dir "*.*") mark))
-	(generate-dired-listing! pathname mark))))
+  switches				; ignored
+  (if (file-directory? pathname)
+      (generate-dired-listing!
+       (string-append (->namestring (pathname-as-directory pathname))
+		      "*.*")
+       mark)
+      (generate-dired-listing! pathname mark)))
 
 (define (insert-dired-entry! pathname directory lstart)
   directory				; ignored