diff options
| -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) |