Re: [Chicken-janitors] #706: file-exists? does return #f on large files

[Chicken Trac]

#706: file-exists? does return #f on large files
-----------------------------+----------------------------------------------
  Reporter:  ckeen           |       Owner:                              
      Type:  defect          |      Status:  new                         
  Priority:  critical        |   Milestone:  4.8.0                       
 Component:  core libraries  |     Version:  4.7.x                       
Resolution:                  |    Keywords:  file-exists? 2GB large files
-----------------------------+----------------------------------------------

Comment(by ckeen):

 (define (file-exists? name)
   (##sys#check-string name 'file-exists?)
   (##sys#pathname-resolution
     name
     (lambda (name)
       (and (##sys#file-info (##sys#platform-fixup-pathname name)) name) )
     #:exists?) )

 (define (##sys#pathname-resolution name thunk . _)
   (thunk (##sys#expand-home-path name)) )

 What's that keyword for anyway? Also wouldn't a call to fstat alone
 suffice without even filling the stat structure?

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