guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 3d2256dce63a77e96236d630c4ee8861902bb0fc
Author: Maxim Cournoyer <[email protected]>
AuthorDate: Thu Oct 30 16:19:58 2025 +0900
Revert "build/gnu: Do not attempt to strip Guile byte-compiled files."
This reverts commit 2ac2a4877d76e6ca4f4300e042050f7857fb2130.
---
guix/build/gnu-build-system.scm | 12 +-----------
1 file changed, 1 insertion(+), 11 deletions(-)
diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm
index f7fd7c0818..63bbeae605 100644
--- a/guix/build/gnu-build-system.scm
+++ b/guix/build/gnu-build-system.scm
@@ -518,12 +518,6 @@ makefiles."
(debug-file file))
file))
- (define (guile-bytecode? file)
- (and (string-suffix? ".go" file)
- (elf-section-by-name
- (parse-elf (call-with-input-file file get-bytevector-all))
- ".guile.procprops")))
-
(define (strip-dir dir)
(format #t "stripping binaries in ~s with ~s and flags ~s~%"
dir strip-command strip-flags)
@@ -532,11 +526,7 @@ makefiles."
debug-output objcopy-command))
(for-each (lambda (file)
- (when (and (or (elf-file? file) (ar-file? file))
- ;; XXX: 'strip' (and 'objdump') choke on the Guile
- ;; byte-compiled objects, with errors like "Unable
- ;; to recognise the format of the input file".
- (not (guile-bytecode? file)))
+ (when (or (elf-file? file) (ar-file? file))
;; If an error occurs while processing a file, issue a
;; warning and continue to the next file.
(guard (c ((invoke-error? c)
