From 37cc2a86f1adb4364c25d5e8224a75956953fd84 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 18 Nov 1998 03:57:47 +0000
Subject: [PATCH] Eliminate another file error in prompting.

---
 v7/src/edwin/unix.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index 341c926f4..f51144e97 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: unix.scm,v 1.86 1998/11/18 03:40:46 cph Exp $
+;;;	$Id: unix.scm,v 1.87 1998/11/18 03:57:47 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-98 Massachusetts Institute of Technology
 ;;;
@@ -305,7 +305,7 @@ Includes the new backup.  Must be > 0."
 	type)))
 
 (define (os/completion-ignore-filename? filename)
-  (and (not (file-directory? filename))
+  (and (not (file-test-no-errors file-directory? filename))
        (there-exists? (ref-variable completion-ignored-extensions)
          (lambda (extension)
 	   (string-suffix? extension filename)))))
-- 
2.25.1