From 8f492c62e781f8243c3383047e38a90d8c519548 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 23 Oct 1998 05:52:21 +0000 Subject: [PATCH] Fix typo. --- v7/src/edwin/shell.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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)))) -- 2.25.1