~ chicken-core (chicken-5) 6c592634183d8feeb70119434892abe2de53297f

commit 6c592634183d8feeb70119434892abe2de53297f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Oct 25 02:17:39 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Oct 25 02:17:39 2010 -0400

    fixed more brokenness in delete-directory

diff --git a/posix-common.scm b/posix-common.scm
index 07e8efb1..89617683 100644
--- a/posix-common.scm
+++ b/posix-common.scm
@@ -252,10 +252,9 @@ EOF
 			follow-symlinks: #f)))
 	    (for-each
 	     (lambda (f)
-	       ((case (file-type f)
-		  ((symbolic-link) delete-file)
-		  ((directory) rmdir)
-		  (else delete-file))
+	       ((cond ((symbolic-link? f) delete-file)
+		      ((directory? f) rmdir)
+		      (else delete-file))
 		f))
 	     files)
 	    (rmdir name))