From 3465eb03bdaa384b713d11b6eef0a2fd3d4b69bd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 18 Jan 2013 18:22:48 +0100
Subject: distro: tcl: Make a `tclsh' symlink.

* gnu/packages/tcl.scm (tcl): Add a `tclsh' symlink.
---
 gnu/packages/tcl.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'gnu/packages/tcl.scm')

diff --git a/gnu/packages/tcl.scm b/gnu/packages/tcl.scm
index a8c4c957c4..abd4ba5817 100644
--- a/gnu/packages/tcl.scm
+++ b/gnu/packages/tcl.scm
@@ -42,9 +42,17 @@
                    (chdir "unix"))
                  (alist-cons-after
                   'install 'install-private-headers
-                  (lambda _
+                  (lambda* (#:key outputs #:allow-other-keys)
                     ;; Private headers are needed by Expect.
-                    (zero? (system* "make" "install-private-headers")))
+                    (and (zero? (system* "make"
+                                         "install-private-headers"))
+                         (let ((bin (string-append (assoc-ref outputs "out")
+                                                   "/bin")))
+                           ;; Create a tclsh -> tclsh8.6 symlink.
+                           ;; Programs such as Ghostscript rely on it.
+                           (with-directory-excursion bin
+                             (symlink (car (find-files "." "tclsh"))
+                                      "tclsh")))))
                   %standard-phases))
 
        ;; XXX: There are a few test failures (related to HTTP, most
-- 
cgit v1.2.3