Browse Source

Remove leftover debugging expressions.

* guix/build/utils.scm (directory-exists?): Remove leftover debugging
  expressions.
gn-latest-20200428
Ludovic Courtès 9 years ago
parent
commit
9f55cf8d56
1 changed files with 3 additions and 4 deletions
  1. +3
    -4
      guix/build/utils.scm

+ 3
- 4
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))))
(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


Loading…
Cancel
Save