guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

gnu: chez-scheme: Fix ‘install-doc’ phase.

Browse source 
* gnu/packages/chez.scm (chez-cheme)[arguments]: Find ‘installsh’.
Remove some unnecessary code.
This commit is contained in:
Tobias Geerinckx-Rice 2019-02-16 15:25:32 +01:00
parent 24a43551d0
commit 95b4f7ca7a
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/packages/chez.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -179,17 +179,18 @@
;; Installation of the documentation requires a running "chez".
(add-after 'install 'install-doc
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") "/bin"))
(doc (string-append (assoc-ref outputs "doc")
(let ((doc (string-append (assoc-ref outputs "doc")
"/share/doc/" ,name "-" ,version)))
(setenv "HOME" (getcwd))
(setenv "PATH" (string-append (getenv "PATH") ":" bin))
(with-directory-excursion "stex"
(system* "make" (string-append "BIN=" bin)))
(system* "make" "docs")
(with-directory-excursion "csug"
(substitute* "Makefile"
(("/tmp/csug9") doc))
;; The ‘installdir=’ can't be overruled on the command line.
(("/tmp/csug9") doc)
;; $m is the ‘machine type’, e.g. ‘ta6le’ on x86_64, but is
;; set incorrectly for some reason, e.g. to ‘a6le’ on x86_64.
;; Avoid the whole mess by running the (machine-independent)
;; ‘installsh’ script at its original location.
(("\\$m/installsh") "makefiles/installsh"))
(system* "make" "install")
(install-file "csug.pdf" doc))
(with-directory-excursion "release_notes"