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

gnu: guile: Do not warn about 'madvise' ENOSYS on GNU/Hurd.

Browse source 
* gnu/packages/guile.scm (guile-2.2)[arguments]: When 'hurd-target?'
returns true, add 'allow-madvise-ENOSYS' phase.
This commit is contained in:
Ludovic Courtès 2018-12-16 15:49:41 +01:00
parent 92391eaf8d
commit ee8ee74820
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gnu/packages/guile.scm
View file

@ -45,6 +45,7 @@ (define-module (gnu packages guile)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages gawk) #:use-module (gnu packages gawk)
#:use-module (gnu packages gperf) #:use-module (gnu packages gperf)
#:use-module (gnu packages hurd)
#:use-module (gnu packages libffi) #:use-module (gnu packages libffi)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module (gnu packages flex) #:use-module (gnu packages flex)
@ -288,7 +289,19 @@ (define-public guile-2.2
(substitute* "module/Makefile.in" (substitute* "module/Makefile.in"
(("language/elisp/boot\\.el") (("language/elisp/boot\\.el")
"\n")) "\n"))
#t))))) #t))
,@(if (hurd-target?)
`((add-after 'unpack 'allow-madvise-ENOSYS
(lambda _
;; Do not warn about ENOSYS on 'madvise'. This is
;; what Guile commit
;; 45e4ace6603e00b297e6542362273041aebe7305 does.
;; TODO: Remove for Guile >= 2.2.5.
(substitute* "libguile/vm.c"
(("perror \\(\"madvise failed\"\\)")
"if (errno != ENOSYS) perror (\"madvised failed\");"))
#t)))
'()))))
(package-arguments guile-2.0))))) (package-arguments guile-2.0)))))
(define-public guile-2.2/fixed (define-public guile-2.2/fixed