[PATCH] guix: python-build-system: Properly inform caller about test status.

[Danny Milosavljevic]

* guix/build/python-build-system.scm (check): Properly inform caller about test 
status.
---
 guix/build/python-build-system.scm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/guix/build/python-build-system.scm 
b/guix/build/python-build-system.scm
index 3f280b0ac..d46739827 100644
--- a/guix/build/python-build-system.scm
+++ b/guix/build/python-build-system.scm
@@ -136,12 +136,13 @@
       ;; build/lib in some cases, e.g. if the source is in a sub-directory
       ;; (given with `package_dir`). This will by copied to the output, too,
       ;; so we need to remove.
-      (let ((before (find-files "build" "\\.egg-info$" #:directories? #t)))
-        (call-setuppy test-target '() use-setuptools?)
-        (let* ((after (find-files "build" "\\.egg-info$" #:directories? #t))
-               (inter (lset-difference eqv? after before)))
-          (for-each delete-file-recursively inter)))
-    #t))
+      (let* ((before (find-files "build" "\\.egg-info$" #:directories? #t))
+             (status (call-setuppy test-target '() use-setuptools?))
+             (after (find-files "build" "\\.egg-info$" #:directories? #t))
+             (inter (lset-difference eqv? after before)))
+        (for-each delete-file-recursively inter)
+        status)
+      #t))
 
 (define (get-python-version python)
   (let* ((version     (last (string-split python #\-)))