From e8c7fdda5d62af08820794114e02a6f247fed2f7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 22 Nov 2014 21:54:27 +0100 Subject: [PATCH] build-system/gnu: Strip 'ar' archives as well. * guix/build/gnu-build-system.scm (strip): Also strip when (ar-file? PATH) is true. --- guix/build/gnu-build-system.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index a8136063ef..dbbb71af35 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -343,7 +343,7 @@ (define (strip-dir dir) debug-output objcopy-command)) (file-system-fold (const #t) (lambda (path stat result) ; leaf - (and (elf-file? path) + (and (or (elf-file? path) (ar-file? path)) (or (not debug-output) (make-debug-file path)) (zero? (apply system* strip-command