typo(?)

svn: r7114
2007-08-18 05:40:27 +00:00 · 2007-08-18 05:40:27 +00:00 · 7d09bb70b8
commit 7d09bb70b8
parent e95d9165f0
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/mzscheme/filelib.ss
+++ b/collects/tests/mzscheme/filelib.ss
@ -41,7 +41,7 @@
 		(test kind values (cond
 				   [(link-exists? name) 'link]
 				   [(file-exists? name) 'file]
-				   [(dir-exists? name) 'dir]
+				   [(directory-exists? name) 'dir]
 				   [else '???]))
 		(when (member name '("filelib-link.ss" "loop-link"))
 		  (test kind name 'link))