mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 10:10:23 +02:00
Code Activity

Add another comment to:

Browse source 
(file-exists?): Use stat rather than access?, ...
This commit is contained in:
Kevin Ryde 2003-09-15 22:29:32 +00:00
parent 5dc1ba739f
commit f319727482
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
ice-9/boot-9.scm
View file

@ -407,6 +407,7 @@
(if (provided? 'socket) (if (provided? 'socket)
(primitive-load-path "ice-9/networking.scm")) (primitive-load-path "ice-9/networking.scm"))
;; For reference, Emacs file-exists-p uses stat in this same way.
;; ENHANCE-ME: Catching an exception from stat is a bit wasteful, do this in ;; ENHANCE-ME: Catching an exception from stat is a bit wasteful, do this in
;; C where all that's needed is to inspect the return from stat(). ;; C where all that's needed is to inspect the return from stat().
(define file-exists? (define file-exists?