; A dummy file-exists?

(define my-file-exists?
  (lambda (file)
    (let ((command
           (string-append "test -e" "file")))
           (system command))))