Browse Source

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.
gn-latest-20200428
Ludovic Courtès 7 years ago
parent
commit
a0efb39ad4
1 changed files with 4 additions and 3 deletions
  1. +4
    -3
      gnu/packages/scheme.scm

+ 4
- 3
gnu/packages/scheme.scm View File

@ -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'.


Loading…
Cancel
Save