[Chicken-users] file-copy does not work on Windows

[pippejp]

Dear Felix,

I am using Chicken to make a browser utility with GUI in Windows XP.
And I found that (file-copy) does not work correctly on Windows platform.
file was copied quietly, but it seems broken.
I looked into the source, and found it:

windows-mingw32-x86 [ manyargs dload ptables ]
compiled 2011/08/14 on DESKTOP (MinGW)

#;3> (string-length (read-string #f (open-input-file "firefox.png")))
6162
#;22> (file-size "firefox.png")
70516

It is necessary to fix (make-pathname) and (regular-file?), too.
;files.scm line176->(let ([def-pds (if ##sys#windows-platform "\\" "/")] )
(define (regular-file?* src)
(or (eq? (software-type) 'windows) (regular-file? src)))

I like Chicken Scheme, thank you for your great work!

Thanks,
satosi