Fix typo.

diff --git a/v7/src/edwin/shell.scm b/v7/src/edwin/shell.scm
index 4a61d54b0673164563f00e6d8c1b53ed12735a8a..dad2594e3695d374b9b2f194044feeb3830d3fa8 100644 (file)
--- 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))))