diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-02-15 00:15:22 +0100 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2017-02-24 19:32:22 +0100 |
| commit | 8c811abb3174b44601b8996a1fe1718f37d7bd14 (patch) | |
| tree | 965abed1fbc31b3608ff6c158a1cb25d8f812d5f | |
| parent | 61f8f75e9378d66568bd652e15e4212ae763f949 (diff) | |
| download | cuirass-8c811abb3174b44601b8996a1fe1718f37d7bd14.tar cuirass-8c811abb3174b44601b8996a1fe1718f37d7bd14.tar.gz | |
base: Remove unnecessary 'file-exists?' call.
* src/cuirass/base.scm (fetch-repository): Remove 'file-exists?' call
before 'mkdir-p'.
| -rw-r--r-- | src/cuirass/base.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm index e1b0ad4..dc05651 100644 --- a/src/cuirass/base.scm +++ b/src/cuirass/base.scm @@ -86,7 +86,7 @@ if required. Return the last commit ID on success, #f otherwise." commit)) (let ((cachedir (%package-cachedir))) - (or (file-exists? cachedir) (mkdir-p cachedir)) + (mkdir-p cachedir) (with-directory-excursion cachedir (let ((name (assq-ref spec #:name)) (url (assq-ref spec #:url)) |