[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Chicken-janitors] #1461: file access test fails on windows with PLA
|
From: |
Chicken Trac |
|
Subject: |
Re: [Chicken-janitors] #1461: file access test fails on windows with PLATFORM=mingw |
|
Date: |
Mon, 28 May 2018 09:27:11 -0000 |
#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
Resolution: | Keywords:
Estimated difficulty: |
---------------------------------------+-----------------
Old description:
> {{{
> 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? /))) <--
> }}}
New description:
On Mingw-64:
{{{
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? /))) <--
}}}
--
Comment (by sjamaan):
According to Kooda, this happened on Mingw-64, not the "standard" Mingw.
--
Ticket URL: <https://bugs.call-cc.org/ticket/1461#comment:2>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.