Parent Directory | Revision Log | Patch
revision 1.266.2.16 by mvo, Sat May 3 20:54:13 2003 UTC | revision 1.266.2.17 by kryde, Fri Sep 12 23:49:08 2003 UTC | |
---|---|---|
# | Line 459 | Line 459 |
459 | (define file-exists? | (define file-exists? |
460 | (if (provided? 'posix) | (if (provided? 'posix) |
461 | (lambda (str) | (lambda (str) |
462 | (access? str F_OK)) | (->bool (false-if-exception (stat str)))) |
463 | (lambda (str) | (lambda (str) |
464 | (let ((port (catch 'system-error (lambda () (open-file str OPEN_READ)) | (let ((port (catch 'system-error (lambda () (open-file str OPEN_READ)) |
465 | (lambda args #f)))) | (lambda args #f)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |