aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-09-27 23:59:18 +0200
committerLudovic Courtès <ludo@gnu.org>2014-09-27 23:59:30 +0200
commita0efb39ad4be5528e41288a8b6a8c2c2f41545a5 (patch)
tree37189b5302430bfdbbef49b1af65e2d45ce82ecb
parent319e2d1736a6a85ae9c721a8516b7a2dac3c9c07 (diff)
downloadguix-a0efb39ad4be5528e41288a8b6a8c2c2f41545a5.tar
guix-a0efb39ad4be5528e41288a8b6a8c2c2f41545a5.tar.gz
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.
-rw-r--r--gnu/packages/scheme.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
index 168dc84ca5..13818ac023 100644
--- a/gnu/packages/scheme.scm
+++ b/gnu/packages/scheme.scm
@@ -37,10 +37,10 @@
#: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))
+ (string-prefix? "i686" system))
""
"c-")
version))
@@ -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'.