From c8464b5b391ebcfa3e2475c15da400667dc39f7e Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 8 Aug 2001 08:39:52 +0000
Subject: [PATCH] Its now no-directory not not-directory in the source.

---
 scsh/test/file-system-tests.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scsh/test/file-system-tests.scm b/scsh/test/file-system-tests.scm
index 410c3b1..a07df7a 100644
--- a/scsh/test/file-system-tests.scm
+++ b/scsh/test/file-system-tests.scm
@@ -516,7 +516,7 @@
 			 (let ((result (func (string-append
 					      fname2 "/" fname))))
 			   (delete-filesys-object fname2)
-			   (equal? result 'not-directory))))
+			   (equal? result 'no-directory))))
 	     "file" "file2")
   ;; nonexistent
   (add-test! (symbol-append name "-nonexistent") 'file-system