diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-09-27 23:59:18 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-09-27 23:59:30 +0200 |
| commit | a0efb39ad4be5528e41288a8b6a8c2c2f41545a5 (patch) | |
| tree | 37189b5302430bfdbbef49b1af65e2d45ce82ecb | |
| parent | 319e2d1736a6a85ae9c721a8516b7a2dac3c9c07 (diff) | |
| download | patches-a0efb39ad4be5528e41288a8b6a8c2c2f41545a5.tar patches-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.scm | 7 |
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'. |