me
/
guix
Archived
1
0
Fork 0
Code

Remove leftover debugging expressions. 

* guix/build/utils.scm (directory-exists?): Remove leftover debugging
  expressions.
master
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

5
guix/build/utils.scm
View File

@ -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))))
(let ((s (stat dir #f)))
(and s
(eq? 'directory (stat:type 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