Its now no-directory not not-directory in the source.

2001-08-08 08:39:52 +00:00 · 2001-08-08 08:39:52 +00:00 · c8464b5b39
parent 9c46dba238
commit c8464b5b39
1 changed files with 1 additions and 1 deletions
--- 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