~ chicken-core (chicken-5) 7b147cfcbe162d319a1d650a0a4d3b571b763a9d

commit 7b147cfcbe162d319a1d650a0a4d3b571b763a9d
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 13:17:55 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)