summary refs log tree commit diff
path: root/distro/packages/guile.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-12-20 23:07:46 +0100
committerLudovic Courtès <ludo@gnu.org>2012-12-20 23:07:46 +0100
commit8ffaa93bffdb08dfe175854863462211d61261be (patch)
tree5674eeea3e4ad18d4a15b447f6d0f4696a250bf6 /distro/packages/guile.scm
parenteca63d3df8642587c35765af8446c1669e192789 (diff)
downloadguix-8ffaa93bffdb08dfe175854863462211d61261be.tar.gz
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.
Diffstat (limited to 'distro/packages/guile.scm')
-rw-r--r--distro/packages/guile.scm10
1 files changed, 10 insertions, 0 deletions
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 @@ extensible.  It supports many SRFIs.")
 
    (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