Browse Source

Remove leftover debugging expressions.

* guix/build/utils.scm (directory-exists?): Remove leftover debugging
  expressions.
wip-grafts
Ludovic Courtès 10 years ago
parent
commit
9f55cf8d56
  1. 7
      guix/build/utils.scm

7
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

Loading…
Cancel
Save