ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: mit-scheme: Rename top-level helper.

Browse source 
Suggested by Mark H. Weaver.

* gnu/packages/scheme.scm (source-directory): Rename to...
  (mit-scheme-source-directory): ... this.
This commit is contained in:
Ludovic Courtès 2014-09-27 23:59:18 +02:00
parent 319e2d1736
commit a0efb39ad4
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/packages/scheme.scm
View file

@ -37,10 +37,10 @@ (define-module (gnu packages scheme)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (ice-9 match)) #:use-module (ice-9 match))
(define (source-directory system version) (define (mit-scheme-source-directory system version)
(string-append "mit-scheme-" (string-append "mit-scheme-"
(if (or (string-prefix? "x86_64" system) (if (or (string-prefix? "x86_64" system)
(string-prefix? "i686" system)) (string-prefix? "i686" system))
"" ""
"c-") "c-")
version)) version))
@ -59,7 +59,8 @@ (define-public mit-scheme
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(and (zero? (system* "tar" "xzvf" (and (zero? (system* "tar" "xzvf"
(assoc-ref inputs "source"))) (assoc-ref inputs "source")))
(chdir ,(source-directory (%current-system) version)) (chdir ,(mit-scheme-source-directory (%current-system)
version))
(begin (begin
;; Delete these dangling symlinks since they break ;; Delete these dangling symlinks since they break
;; `patch-shebangs'. ;; `patch-shebangs'.