scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
mainzelm 2001-08-08 08:39:52 +00:00
parent 9c46dba238
commit c8464b5b39
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/test/file-system-tests.scm
View File

@ -516,7 +516,7 @@
(let ((result (func (string-append (let ((result (func (string-append
fname2 "/" fname)))) fname2 "/" fname))))
(delete-filesys-object fname2) (delete-filesys-object fname2)
(equal? result 'not-directory)))) (equal? result 'no-directory))))
"file" "file2") "file" "file2")
;; nonexistent ;; nonexistent
(add-test! (symbol-append name "-nonexistent") 'file-system (add-test! (symbol-append name "-nonexistent") 'file-system