me/guix
Archived
1
0
Fork 0
Code Activity

build-system/python: Fix deletion of .egg-info dirs created by tests.

Browse source 
* guix/build/python-build-system.scm (check): Use 'string=?' to compare
strings, not 'eqv?'.
This commit is contained in:
Mark H Weaver 2018-03-18 00:27:41 -04:00
parent 1e62645402
commit 171a117c61
No known key found for this signature in database
GPG key ID: 7CEF29847562C516
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/build/python-build-system.scm
View file

@ -141,7 +141,7 @@
(let ((before (find-files "build" "\\.egg-info$" #:directories? #t))) (let ((before (find-files "build" "\\.egg-info$" #:directories? #t)))
(call-setuppy test-target '() use-setuptools?) (call-setuppy test-target '() use-setuptools?)
(let* ((after (find-files "build" "\\.egg-info$" #:directories? #t)) (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))) (for-each delete-file-recursively inter)))
(format #t "test suite not run~%")) (format #t "test suite not run~%"))
#t) #t)