diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-06-16 16:16:16 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-06-16 16:16:16 +0200 |
| commit | 9f55cf8d56bc10ebe54902a98942dc895ccd837c (patch) | |
| tree | 7e61548818d5827e5b6d8b71b2316018a8743f05 | |
| parent | dcee50c1146a6698be3e88a36da5e890f829ff9d (diff) | |
| download | guix-9f55cf8d56bc10ebe54902a98942dc895ccd837c.tar.gz | |
Remove leftover debugging expressions.
* guix/build/utils.scm (directory-exists?): Remove leftover debugging expressions.
| -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 |