diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-01-18 18:22:48 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-01-18 18:22:48 +0100 |
| commit | 3465eb03bdaa384b713d11b6eef0a2fd3d4b69bd (patch) | |
| tree | 5126adfb5ee7465504f6246b9e61ecd15444ff47 | |
| parent | 5fc5c2f340c3bc7bc73428fbe1265a724203f668 (diff) | |
| download | patches-3465eb03bdaa384b713d11b6eef0a2fd3d4b69bd.tar patches-3465eb03bdaa384b713d11b6eef0a2fd3d4b69bd.tar.gz | |
distro: tcl: Make a `tclsh' symlink.
* gnu/packages/tcl.scm (tcl): Add a `tclsh' symlink.
| -rw-r--r-- | gnu/packages/tcl.scm | 12 |
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 |