distro: tcl: Make a `tclsh' symlink.

* gnu/packages/tcl.scm (tcl): Add a `tclsh' symlink.
2013-01-18 18:22:48 +01:00 · 2013-01-18 18:22:48 +01:00 · 3465eb03bd
commit 3465eb03bd
parent 5fc5c2f340
1 changed files with 10 additions and 2 deletions
--- 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