ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove leftover debugging expressions.

Browse source 
* 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-module (guix build utils)
(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