[Chicken-janitors] #1461: file access test fails on windows with PLATFORM=mingw

[Chicken Trac]

#1461: file access test fails on windows with PLATFORM=mingw
----------------------------+----------------------------
 Reporter:  kooda           |                 Owner:
     Type:  defect          |                Status:  new
 Priority:  major           |             Milestone:  5.0
Component:  core libraries  |               Version:  5.0
 Keywords:                  |  Estimated difficulty:
----------------------------+----------------------------
 {{{
 Error: assertion failed: (file-exists? /)

         Call history:

         <syntax>          (##sys#error "assertion failed" (##core#quote
 (not (directory-exists? ""))))
         <syntax>          (##core#quote (not (directory-exists? "")))
         <syntax>          (not (directory-exists? ""))
         <syntax>          (directory-exists? "")
         <eval>    (not (directory-exists? ""))
         <eval>    (directory-exists? "")
         <syntax>          (assert (file-exists? /))
         <syntax>          (##core#let ((tmp293 (file-exists? /)))
 (##core#if (##core#check tmp293) tmp293 (##sys#error "assert...
         <syntax>          (##core#begin (##core#if (##core#check tmp293)
 tmp293 (##sys#error "assertion failed" (##core#quote ...
         <syntax>          (##core#if (##core#check tmp293) tmp293
 (##sys#error "assertion failed" (##core#quote (file-exists? ...
         <syntax>          (##core#check tmp293)
         <syntax>          (##sys#error "assertion failed" (##core#quote
 (file-exists? /)))
         <syntax>          (##core#quote (file-exists? /))
         <syntax>          (file-exists? /)
         <eval>    (file-exists? /)
         <eval>    (##sys#error "assertion failed" (##core#quote (file-
 exists? /)))      <--
 }}}

--
Ticket URL: <https://bugs.call-cc.org/ticket/1461>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.