From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 23 Oct 1998 05:52:21 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~4723
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8f492c62e781f8243c3383047e38a90d8c519548;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/edwin/shell.scm b/v7/src/edwin/shell.scm
index 4a61d54b0..dad2594e3 100644
--- a/v7/src/edwin/shell.scm
+++ b/v7/src/edwin/shell.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: shell.scm,v 1.17 1998/10/23 05:50:20 cph Exp $
+$Id: shell.scm,v 1.18 1998/10/23 05:52:21 cph Exp $
 
 Copyright (c) 1991-98 Massachusetts Institute of Technology
 
@@ -438,10 +438,10 @@ those that effect file completion."
 	  ((null? (cdr results))
 	   (if-unique
 	    (let ((result (car results)))
-	      (let ((t (pathname-type result)))
-		(if (memq t (os/executable-pathname-types))
-		    (->namestring (pathname-new-type result #f))
-		    result)))))
+	      (if (member (pathname-type result)
+			  (os/executable-pathname-types))
+		  (->namestring (pathname-new-type result #f))
+		  result))))
 	  (else
 	   (if-not-unique (compute-max-prefix results) (lambda () results))))
     (not (null? results))))