summary refs log tree commit diff
path: root/distro/packages/tcl.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-01-13 15:37:01 +0100
committerLudovic Courtès <ludo@gnu.org>2013-01-13 15:37:01 +0100
commitd5529a9162be82df2a9d8f7fecd5b0c6916c2c9e (patch)
tree3c4b3ae7f6b5f9cd2f0908e652ff522ed1a6e9a5 /distro/packages/tcl.scm
parentfa39cc0da65677e801438cacb94088a13e2f0254 (diff)
downloadguix-d5529a9162be82df2a9d8f7fecd5b0c6916c2c9e.tar.gz
distro: expect: Provide the right path to `stty'.
* distro/packages/tcl.scm (expect): Add #:phases argument.
Diffstat (limited to 'distro/packages/tcl.scm')
-rw-r--r--distro/packages/tcl.scm9
1 files changed, 8 insertions, 1 deletions
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