[Chicken-janitors] #607: file-type does not work on Windows

[Chicken Trac]

#607: file-type does not work on Windows
----------------------------+-----------------------------------------------
 Reporter:  zbigniew        |       Owner:  felix
     Type:  defect          |      Status:  new  
 Priority:  major           |   Milestone:  4.8.0
Component:  core libraries  |     Version:  4.7.x
 Keywords:                  |  
----------------------------+-----------------------------------------------
 Because unknown file types like S_IFLNK are defined to S_IFREG on Windows,
 file-type will always report symbolic-link for regular files (and regular-
 file? will return #f).

 Attached patch tests for S_IFREG first, fixing the problem.  FYI, applying
 with "git am filename.patch" will propagate authorship credit.

 Alternative solution: define S_IFLNK etc. to 0.  Slightly more dangerous
 but all platforms should have no zero file type flags.  posix-extras
 currently uses this method.

-- 
Ticket URL: <http://bugs.call-cc.org/ticket/607>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.