h.h")


;;; getenv and setenv
(c-define '(char* getenv (char*)))
(c-define '(int setenv (char* char* int)))


;;; file-exists? and delete-file
(define file-exists? (let () ; define F_OK and access only within this let
                       (c-define '((int F_OK) (int access (char* int))) "" "unistd.h")
                       (lambda (arg) (= (access arg F_OK) 0))))

(define delete-file (let ()
                      (c-define '(int unlink (char*)) "" "unistd.h")
                      (lambda (file) (= (unli