summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--distro/packages/base.scm26
1 files changed, 21 insertions, 5 deletions
diff --git a/distro/packages/base.scm b/distro/packages/base.scm
index 7cb2dc116e..dacf8e46aa 100644
--- a/distro/packages/base.scm
+++ b/distro/packages/base.scm
@@ -967,11 +967,27 @@ store.")
;; FIXME: The Libtool used here, specifically its `bin/libtool' script,
;; holds a dependency on the bootstrap Binutils. Use multiple outputs for
;; Libtool, so that that dependency is isolated in the "bin" output.
- (package-with-bootstrap-guile
- (package-with-explicit-inputs guile-2.0/fixed
- %boot4-inputs
- (current-source-location)
- #:guile %bootstrap-guile)))
+ (let ((guile (package (inherit guile-2.0/fixed)
+ (arguments
+ `(#:phases
+ (alist-cons-before
+ 'patch-source-shebangs 'delete-encoded-test
+ (lambda* (#:key inputs #:allow-other-keys)
+ ;; %BOOTSTRAP-GUILE doesn't know about encodings other
+ ;; than UTF-8. That test declares an ISO-8859-1
+ ;; encoding, which prevents `patch-shebang' from
+ ;; working, so skip it.
+ (call-with-output-file
+ "test-suite/standalone/test-command-line-encoding2"
+ (lambda (p)
+ (format p "#!~a/bin/bash\nexit 77"
+ (assoc-ref inputs "bash")))))
+ %standard-phases))))))
+ (package-with-bootstrap-guile
+ (package-with-explicit-inputs guile
+ %boot4-inputs
+ (current-source-location)
+ #:guile %bootstrap-guile))))
(define-public ld-wrapper
;; The final `ld' wrapper, which uses the final Guile.