diff options
| author | Andreas Enge <andreas@enge.fr> | 2014-09-27 18:59:40 +0200 |
|---|---|---|
| committer | Andreas Enge <andreas@enge.fr> | 2014-09-27 19:36:57 +0200 |
| commit | ecb26c101e2b879637fb724782fc09be8618a545 (patch) | |
| tree | a8a647f7d0fa41a3cc7726b15a7477d43f973054 | |
| parent | dc47939172d4cfe75f4424684223c109fec6e453 (diff) | |
| download | guix-ecb26c101e2b879637fb724782fc09be8618a545.tar guix-ecb26c101e2b879637fb724782fc09be8618a545.tar.gz | |
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.
| -rw-r--r-- | gnu/packages/scheme.scm | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm index f66c3136ea..be57399232 100644 --- a/gnu/packages/scheme.scm +++ b/gnu/packages/scheme.scm @@ -37,6 +37,14 @@ #: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 @@ (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 @@ (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) |