~ chicken-core (chicken-5) 8b4bfa4ffe368c261d13b667625d68f27fd2a2ee

commit 8b4bfa4ffe368c261d13b667625d68f27fd2a2ee
Author:     zbigniew <zbigniewsz@gmail.com>
AuthorDate: Wed Jun 15 00:49:51 2011 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jun 18 17:09:12 2011 +0200

    Fix posix#file-type on Windows by testing for regular file first

diff --git a/posix-common.scm b/posix-common.scm
index 994b1ed1..283e6da5 100644
--- a/posix-common.scm
+++ b/posix-common.scm
@@ -194,6 +194,7 @@ EOF
 (define (file-type file #!optional link (err #t))
   (and (##sys#stat file link err 'file-type)
        (select (foreign-value "C_stat_type" unsigned-int)
+	 ((S_IFREG) 'regular-file)
 	 ((S_IFLNK) 'symbolic-link)
 	 ((S_IFDIR) 'directory)
 	 ((S_IFCHR) 'character-device)