280
281
282
283
284
285
286
287
288
289
|
(define (file-exists? path-string)
;; this avoids stack dumps. NOTE: The issues that triggered this approach might have been fixed TODO: test and remove if possible
;;;; TODO: catch permission denied exceptions and emit appropriate warnings, eg: system error while trying to access file: "/nfs/pdx/disks/icf_env_disk001/bjbarcla/gwa/issues/mtdev/randy-slow/reproduce/q...
(handle-exceptions
exn
#f
(file-exists? path-string)))
)
|
|
|
280
281
282
283
284
285
286
287
288
289
|
(define (file-exists? path-string)
;; this avoids stack dumps. NOTE: The issues that triggered this approach might have been fixed TODO: test and remove if possible
;;;; TODO: catch permission denied exceptions and emit appropriate warnings, eg: system error while trying to access file: "/nfs/pdx/disks/icf_env_disk001/bjbarcla/gwa/issues/mtdev/randy-slow/reproduce/q...
(handle-exceptions
exn
#f
(old-file-exists? path-string)))
)
|