From 9f55cf8d56bc10ebe54902a98942dc895ccd837c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 16 Jun 2012 16:16:16 +0200
Subject: [PATCH] Remove leftover debugging expressions.

* guix/build/utils.scm (directory-exists?): Remove leftover debugging
  expressions.
---
 guix/build/utils.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index db1814486cf..ccc8a4f6e3d 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -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
-- 
GitLab