From d5529a9162be82df2a9d8f7fecd5b0c6916c2c9e Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sun, 13 Jan 2013 15:37:01 +0100
Subject: distro: expect: Provide the right path to `stty'.

* distro/packages/tcl.scm (expect): Add #:phases argument.
---
 distro/packages/tcl.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/distro/packages/tcl.scm b/distro/packages/tcl.scm
index 14d50f1373..d764f6b8ad 100644
--- a/distro/packages/tcl.scm
+++ b/distro/packages/tcl.scm
@@ -88,7 +88,14 @@
              (string-append "--exec-prefix="
                             (assoc-ref %outputs "out")))
 
-       ;; FIXME: There are test failures.
+       #:phases (alist-cons-before
+                 'configure 'set-path-to-stty
+                 (lambda _
+                   (substitute* "configure"
+                     (("STTY_BIN=/bin/stty")
+                      (string-append "STTY_BIN=" (which "stty")))))
+                 %standard-phases)
+
        #:test-target "test"))
     (home-page "http://expect.nist.gov/")
     (synopsis
-- 
cgit v1.2.3