guix_mirror_bot pushed a commit to branch add-compress-debug-symbols-phase in repository guix.
commit 412b20213f02da2416ca147b02f67811c7d1f21d Author: Maxim Cournoyer <[email protected]> AuthorDate: Tue Nov 18 23:29:55 2025 +0900 build/gnu-build-system: Zstd compress Texinfo files. * guix/build/gnu-build-system.scm (compress-documentation) <info-compressor, info-compressor-flags> <info-compressor-file-extension>: Default to zstd if available. Change-Id: I837c6e2eda6db8dd963dee39af251b2619e8bce8 --- guix/build/gnu-build-system.scm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index 1b15fe59b2..2f0b74811e 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -736,23 +736,23 @@ and 'man/'. This phase moves directories to the right place if needed." (define* (compress-documentation #:key outputs (compress-documentation? #t) - (info-compressor "gzip") + (info-compressor (if (which "zstd") + "zstd" + "gzip")) (info-compressor-flags - '("--best" "--no-name")) - (info-compressor-file-extension ".gz") - (man-compressor (if (which "zstd") - "zstd" - info-compressor)) - (man-compressor-flags (if (which "zstd") (list "-19" "--rm" "--threads" (number->string (parallel-job-count))) - info-compressor-flags)) - (man-compressor-file-extension + '("--best" "--no-name"))) + (info-compressor-file-extension (if (which "zstd") ".zst" - info-compressor-file-extension)) + ".gz")) + (man-compressor info-compressor) + (man-compressor-flags info-compressor-flags) + (man-compressor-file-extension + info-compressor-file-extension) #:allow-other-keys) "When COMPRESS-INFO-MANUALS? is true, compress Info files found in OUTPUTS using INFO-COMPRESSOR, called with INFO-COMPRESSOR-FLAGS. Similarly, when
