nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove leftover debugging expressions. 

* guix/build/utils.scm (directory-exists?): Remove leftover debugging
  expressions.
This commit is contained in:
Ludovic Courtès 2012-06-16 16:16:16 +02:00
parent dcee50c114
commit 9f55cf8d56
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
guix/build/utils.scm
View File

@ -23,10 +23,9 @@
(define (directory-exists? dir) (define (directory-exists? dir)
"Return #t if DIR exists and is a directory." "Return #t if DIR exists and is a directory."
(pk 'dir-exists? dir (let ((s (stat dir #f)))
(let ((s (pk 'stat dir (stat dir #f)))) (and s
(and s (eq? 'directory (stat:type s)))))
(eq? 'directory (stat:type s))))))
(define (search-path-as-list sub-directories input-dirs) (define (search-path-as-list sub-directories input-dirs)
"Return the list of directories among SUB-DIRECTORIES that exist in "Return the list of directories among SUB-DIRECTORIES that exist in