summaryrefslogtreecommitdiff
path: root/guix/build/python-build-system.scm
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2018-03-18 00:27:41 -0400
committerMark H Weaver <mhw@netris.org>2018-03-18 00:49:05 -0400
commit171a117c61224be10f2b97a6a880ad0f4c38ef6d (patch)
treee0ee8ac7448cba91e06cca05c0dccb264b2fc19c /guix/build/python-build-system.scm
parent1e62645402443e5caf874979fd24e9ad6e369ff2 (diff)
build-system/python: Fix deletion of .egg-info dirs created by tests.
* guix/build/python-build-system.scm (check): Use 'string=?' to compare strings, not 'eqv?'.
Diffstat (limited to 'guix/build/python-build-system.scm')
-rw-r--r--guix/build/python-build-system.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/build/python-build-system.scm b/guix/build/python-build-system.scm
index c903a0031e..376ea81f1a 100644
--- a/guix/build/python-build-system.scm
+++ b/guix/build/python-build-system.scm
@@ -141,7 +141,7 @@
(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)))
+ (inter (lset-difference string=? after before)))
(for-each delete-file-recursively inter)))
(format #t "test suite not run~%"))
#t)