gnu: mit-scheme: Rename top-level helper.
Suggested by Mark H. Weaver. * gnu/packages/scheme.scm (source-directory): Rename to... (mit-scheme-source-directory): ... this.
This commit is contained in:
parent
319e2d1736
commit
a0efb39ad4
|
@ -37,7 +37,7 @@
|
|||
#:use-module (gnu packages image)
|
||||
#:use-module (ice-9 match))
|
||||
|
||||
(define (source-directory system version)
|
||||
(define (mit-scheme-source-directory system version)
|
||||
(string-append "mit-scheme-"
|
||||
(if (or (string-prefix? "x86_64" system)
|
||||
(string-prefix? "i686" system))
|
||||
|
@ -59,7 +59,8 @@
|
|||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(and (zero? (system* "tar" "xzvf"
|
||||
(assoc-ref inputs "source")))
|
||||
(chdir ,(source-directory (%current-system) version))
|
||||
(chdir ,(mit-scheme-source-directory (%current-system)
|
||||
version))
|
||||
(begin
|
||||
;; Delete these dangling symlinks since they break
|
||||
;; `patch-shebangs'.
|
||||
|
|
Loading…
Reference in New Issue