nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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:
Andreas Enge 2014-09-27 18:59:40 +02:00
parent dc47939172
commit ecb26c101e
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gnu/packages/scheme.scm
View File

@ -37,6 +37,14 @@
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (ice-9 match)) #: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 (define-public mit-scheme
(package (package
(name "mit-scheme") (name "mit-scheme")
@ -51,7 +59,7 @@
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(and (zero? (system* "tar" "xzvf" (and (zero? (system* "tar" "xzvf"
(assoc-ref inputs "source"))) (assoc-ref inputs "source")))
(chdir ,(string-append name "-" version)) (chdir ,(source-directory (%current-system) version))
(begin (begin
;; Delete these dangling symlinks since they break ;; Delete these dangling symlinks since they break
;; `patch-shebangs'. ;; `patch-shebangs'.
@ -88,11 +96,13 @@
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnu/mit-scheme/stable.pkg/" (uri (string-append "mirror://gnu/mit-scheme/stable.pkg/"
version "/mit-scheme-" version "/mit-scheme-"
version "-"
(match (%current-system) (match (%current-system)
("x86_64-linux" "x86-64") ("x86_64-linux"
("i686-linux" "i386") (string-append version "-x86-64"))
(_ "c")) ("i686-linux"
(string-append version "-i386"))
(_
(string-append "c-" version)))
".tar.gz")) ".tar.gz"))
(sha256 (sha256
(match (%current-system) (match (%current-system)