mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
gnu: mit-scheme: Fix source file name for mips64el.
* gnu/packages/scheme.scm (mit-scheme): Fix source file name for architectures other than x86_64 and i686.
This commit is contained in:
parent
dc47939172
commit
ecb26c101e
1 changed files with 15 additions and 5 deletions
|
@ -37,6 +37,14 @@ (define-module (gnu packages scheme)
|
|||
#:use-module (gnu packages image)
|
||||
#:use-module (ice-9 match))
|
||||
|
||||
(define (source-directory system version)
|
||||
(string-append "mit-scheme-"
|
||||
(if (or (string-prefix? "x86_64" system)
|
||||
(string-prefix? "i686" system))
|
||||
""
|
||||
"c-")
|
||||
version))
|
||||
|
||||
(define-public mit-scheme
|
||||
(package
|
||||
(name "mit-scheme")
|
||||
|
@ -51,7 +59,7 @@ (define-public mit-scheme
|
|||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(and (zero? (system* "tar" "xzvf"
|
||||
(assoc-ref inputs "source")))
|
||||
(chdir ,(string-append name "-" version))
|
||||
(chdir ,(source-directory (%current-system) version))
|
||||
(begin
|
||||
;; Delete these dangling symlinks since they break
|
||||
;; `patch-shebangs'.
|
||||
|
@ -88,11 +96,13 @@ (define-public mit-scheme
|
|||
(method url-fetch)
|
||||
(uri (string-append "mirror://gnu/mit-scheme/stable.pkg/"
|
||||
version "/mit-scheme-"
|
||||
version "-"
|
||||
(match (%current-system)
|
||||
("x86_64-linux" "x86-64")
|
||||
("i686-linux" "i386")
|
||||
(_ "c"))
|
||||
("x86_64-linux"
|
||||
(string-append version "-x86-64"))
|
||||
("i686-linux"
|
||||
(string-append version "-i386"))
|
||||
(_
|
||||
(string-append "c-" version)))
|
||||
".tar.gz"))
|
||||
(sha256
|
||||
(match (%current-system)
|
||||
|
|
Loading…
Reference in a new issue