diff options
| author | Mark H Weaver <mhw@netris.org> | 2018-03-18 00:27:41 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2018-03-18 00:49:05 -0400 |
| commit | 171a117c61224be10f2b97a6a880ad0f4c38ef6d (patch) | |
| tree | e0ee8ac7448cba91e06cca05c0dccb264b2fc19c | |
| parent | 1e62645402443e5caf874979fd24e9ad6e369ff2 (diff) | |
| download | guix-171a117c61224be10f2b97a6a880ad0f4c38ef6d.tar.gz | |
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?'.
| -rw-r--r-- | guix/build/python-build-system.scm | 2 |
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) |