gnu: mit-scheme: Update to 10.1.3.

* 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

View file

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