aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/tcl.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-01-18 18:22:48 +0100
committerLudovic Courtès <ludo@gnu.org>2013-01-18 18:22:48 +0100
commit3465eb03bdaa384b713d11b6eef0a2fd3d4b69bd (patch)
tree5126adfb5ee7465504f6246b9e61ecd15444ff47 /gnu/packages/tcl.scm
parent5fc5c2f340c3bc7bc73428fbe1265a724203f668 (diff)
downloadguix-3465eb03bdaa384b713d11b6eef0a2fd3d4b69bd.tar
guix-3465eb03bdaa384b713d11b6eef0a2fd3d4b69bd.tar.gz
distro: tcl: Make a `tclsh' symlink.
* gnu/packages/tcl.scm (tcl): Add a `tclsh' symlink.
Diffstat (limited to 'gnu/packages/tcl.scm')
-rw-r--r--gnu/packages/tcl.scm12
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