~ruther/guix-local

e8c7fdda5d62af08820794114e02a6f247fed2f7 — Ludovic Courtès 11 years ago 2bbc6db
build-system/gnu: Strip 'ar' archives as well.

* guix/build/gnu-build-system.scm (strip): Also strip when (ar-file?
  PATH) is true.
1 files changed, 1 insertions(+), 1 deletions(-)

M guix/build/gnu-build-system.scm
M guix/build/gnu-build-system.scm => guix/build/gnu-build-system.scm +1 -1
@@ 343,7 343,7 @@ makefiles."
              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