diff options
Diffstat (limited to 'guix')
-rw-r--r-- | guix/build/utils.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm index db1814486c..ccc8a4f6e3 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -23,10 +23,9 @@ (define (directory-exists? dir) "Return #t if DIR exists and is a directory." - (pk 'dir-exists? dir - (let ((s (pk 'stat dir (stat dir #f)))) - (and s - (eq? 'directory (stat:type s)))))) + (let ((s (stat dir #f))) + (and s + (eq? 'directory (stat:type s))))) (define (search-path-as-list sub-directories input-dirs) "Return the list of directories among SUB-DIRECTORIES that exist in |