/[guile]/guile/guile-core/ice-9/boot-9.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/boot-9.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))))

Legend:
Removed from v.1.266.2.16  
changed lines
  Added in v.1.266.2.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26