ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: guile-2.0: support mingw.

Browse source 
* gnu/packages/guile.scm (guile-2.0): Support MinGW.
This commit is contained in:
Jan Nieuwenhuizen 2016-04-24 14:06:56 +02:00 committed by Ludovic Courtès
parent ae12d58627
commit 88da729ff7
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/packages/guile.scm
View file

@ -146,8 +146,8 @@ (define-public guile-2.0
(native-inputs `(("pkgconfig" ,pkg-config)))
(inputs `(("libffi" ,libffi)
("readline" ,readline)
("bash" ,bash)))
,@(libiconv-if-needed)
,@(if (target-mingw?) '() `(("bash" ,bash)))))
(propagated-inputs
`( ;; These ones aren't normally needed here, but since `libguile-2.0.la'
;; reads `-lltdl -lunistring', adding them here will add the needed
@ -176,8 +176,15 @@ (define-public guile-2.0
;; Tell (ice-9 popen) the file name of Bash.
(let ((bash (assoc-ref inputs "bash")))
(substitute* "module/ice-9/popen.scm"
;; If bash is #f allow fallback for user to provide
;; "bash" in PATH. This happens when cross-building to
;; MinGW for which we do not have Bash yet.
(("/bin/sh")
(string-append bash "/bin/bash")))))
,@(if (target-mingw?)
'((if bash
(string-append bash "/bin/bash")
"bash"))
'((string-append bash "/bin/bash")))))))
%standard-phases)))
(native-search-paths