ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 13:28:12 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: mit-scheme: Update to 10.1.3.

Browse source 
* gnu/packages/scheme.scm (mit-scheme): Update to 10.1.3.
[arguments]: Update 'unpack', 'configure-doc', and 'install-doc' phases
accordingly.
[supported-systems]: Limit to i686-linux and x86_64-linux.
This commit is contained in:
Kei Kebreau 2018-12-13 08:32:50 -05:00
parent 63b6957404
commit d870cc5e8a
No known key found for this signature in database
GPG key ID: E6A5EE3C19467A0D
1 changed files with 10 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
gnu/packages/scheme.scm
View file

@ -80,7 +80,7 @@ (define (mit-scheme-source-directory system version)
(define-public mit-scheme
(package
(name "mit-scheme")
(version "9.2")
(version "10.1.3")
(source #f) ; see below
(outputs '("out" "doc"))
(build-system gnu-build-system)
@ -100,10 +100,7 @@ (define-public mit-scheme
;; Delete these dangling symlinks since they break
;; `patch-shebangs'.
(for-each delete-file
(append '("src/lib/shim-config.scm")
(find-files "src/lib/lib" "\\.so$")
(find-files "src/lib" "^liarc-")
(find-files "src/compiler" "^make\\.")))
(find-files "src/compiler" "^make\\."))
(chdir "src")
#t))
;; FIXME: the texlive-union insists on regenerating fonts. It stores
@ -128,9 +125,6 @@ (define-public mit-scheme
(invoke bin/sh "./configure"
(string-append "--prefix=" out)
(string-append "SHELL=" bin/sh))
(substitute* '("Makefile" "make-common")
(("/lib/mit-scheme/doc")
(string-append "/share/doc/" ,name "-" ,version)))
#t))))
(add-after 'build 'build-doc
(lambda* _
@ -147,11 +141,11 @@ (define-public mit-scheme
(with-directory-excursion "../doc"
(for-each (lambda (target)
(invoke "make" target))
'("install-config" "install-info-gz" "install-man"
'("install-info-gz" "install-man"
"install-html" "install-pdf")))
(mkdir-p new-doc/mit-scheme-dir)
(copy-recursively
(string-append old-doc-dir "/" ,name "-" ,version)
(string-append old-doc-dir "/" ,name)
new-doc/mit-scheme-dir)
(delete-file-recursively old-doc-dir)
#t))))))
@ -177,24 +171,21 @@ (define-public mit-scheme
("x86_64-linux"
(string-append version "-x86-64"))
("i686-linux"
(string-append version "-i386"))
(_
(string-append "c-" version)))
(string-append version "-i386")))
".tar.gz"))
(sha256
(match (%current-system)
("x86_64-linux"
(base32
"1skzxxhr0iq96bf0j5m7mvf3i4sppfyfa6gpqn34mwgkw1fx8274"))
"03m7cc035w3avs91j2pcz9f15ssgvgp3rm045d1vbydqrkzfyw8k"))
("i686-linux"
(base32
"1fmlpnhf5a75db93phajh4ysbdgrgl72v45lk3kznriprl0a7jc6"))
(_
(base32
"0w5ib5vsidihb4hb6fma3sp596ykr8izagm57axvgd6lqzwicsjg"))))))))
"05sjyz90xxfnmi87qv8x0yx0fcallnzl1dciygdafp317pn489is"))))))))
;; Fails to build on MIPS, see <http://bugs.gnu.org/18221>.
(supported-systems '("x86_64-linux" "i686-linux" "armhf-linux"))
;; Also, the portable C version of MIT/GNU Scheme did not work in time for
;; release in version 10.1.
(supported-systems '("x86_64-linux" "i686-linux"))
(home-page "https://www.gnu.org/software/mit-scheme/")
(synopsis "A Scheme implementation with integrated editor and debugger")