me/guix
Archived
1
0
Fork 0
Code Activity

distro: tcl: Make a `tclsh' symlink.

Browse source 
* gnu/packages/tcl.scm (tcl): Add a `tclsh' symlink.
This commit is contained in:
Ludovic Courtès 2013-01-18 18:22:48 +01:00
parent 5fc5c2f340
commit 3465eb03bd
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/tcl.scm
View file

@ -42,9 +42,17 @@
(chdir "unix")) (chdir "unix"))
(alist-cons-after (alist-cons-after
'install 'install-private-headers 'install 'install-private-headers
(lambda _ (lambda* (#:key outputs #:allow-other-keys)
;; Private headers are needed by Expect. ;; 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)) %standard-phases))
;; XXX: There are a few test failures (related to HTTP, most ;; XXX: There are a few test failures (related to HTTP, most