distro: tcl: Make a `tclsh' symlink.

* gnu/packages/tcl.scm (tcl): Add a `tclsh' symlink.

1 files changed, 10 insertions, 2 deletions

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