#lang scheme/base

;; let's have a few more simplifications
(require (rename-in scheme/base 
                    (file-or-directory-modify-seconds mtime)
                    (file-or-directory-permissions acl)
                    (rename-file-or-directory rename)
                    (make-file-or-directory-link symlink) 
                    (make-directory mkdir)
                    (directory-list ls)
                    (delete-directory rmdir)
                    (open-input-file fopen/read)  
                    (open-output-file fopen/write)
                    )
         (rename-in scheme/file 
                    (make-directory* mkdir*)
                    (copy-directory/files cp)
                    (delete-directory/files rm-rf)
                    )
         scheme/file
         )

;; if we have a full way of constructing the shortcut we'll make use of it...
;; a higher version would have been interesting... hmm...
(provide mtime
         acl
         rename
         symlink
         mkdir 
         ls
         rmdir 
         mkdir*
         cp
         rm-rf 
         fopen/read 
         fopen/write
         )

(provide (all-from-out scheme/file))