From 8ffaa93bffdb08dfe175854863462211d61261be Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Thu, 20 Dec 2012 23:07:46 +0100
Subject: distro: guile: Patch (ice-9 popen) to use the right shell.

* distro/packages/guile.scm (guile-2.0): Add `pre-configure'.
* distro/packages/base.scm (guile-final): Adjust to preserve the
  `pre-configure' phase.
---
 distro/packages/guile.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'distro/packages/guile.scm')

diff --git a/distro/packages/guile.scm b/distro/packages/guile.scm
index a5d37eb40b..68c2fcc2ef 100644
--- a/distro/packages/guile.scm
+++ b/distro/packages/guile.scm
@@ -120,6 +120,16 @@ (define-public guile-2.0
 
    (self-native-input? #t)
 
+   (arguments
+    '(#:phases (alist-cons-before
+                'configure 'pre-configure
+                (lambda* (#:key inputs #:allow-other-keys)
+                  (let ((bash (assoc-ref inputs "bash")))
+                    (substitute* "module/ice-9/popen.scm"
+                      (("/bin/sh")
+                       (string-append bash "/bin/bash")))))
+                %standard-phases)))
+
    (synopsis "GNU Guile 2.0, an embeddable Scheme implementation")
    (description
 "GNU Guile is an implementation of the Scheme programming language, with
-- 
cgit v1.2.3