me/guix
Archived
1
0
Fork 0
Code Activity

rakudo-build-system: Don't double wrap programs.

Browse source 
* guix/build/rakudo-build-system.scm (wrap): Don't return any potential
already wrapped-programs in the list-of-files to wrap.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Brendan Tildesley 2020-09-13 15:45:56 +10:00 • committed by Ludovic Courtès
parent ed42b2caba
commit b6753aa1e1
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
guix/build/rakudo-build-system.scm
View file

@ -97,7 +97,8 @@
(map (cut string-append dir "/" <>) (map (cut string-append dir "/" <>)
(or (scandir dir (lambda (f) (or (scandir dir (lambda (f)
(let ((s (stat (string-append dir "/" f)))) (let ((s (stat (string-append dir "/" f))))
(eq? 'regular (stat:type s))))) (and (eq? 'regular (stat:type s))
(not (wrapped-program? f))))))
'()))) '())))
(define bindirs (define bindirs