guix
/
guix
mirror of git://git.savannah.gnu.org/guix.git
3
4
Fork 0
Code Issues Releases Wiki Activity

syscalls: Properly match %HOST-TYPE. 

Fixes <https://bugs.gnu.org/41546>.

Regression introduced in 0d371c633f.

* guix/build/syscalls.scm (write-socket-address!)
(read-socket-address): Use 'string-contains' instead of
'string-suffix?'.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Jesse Dowell 2020-05-29 16:39:39 +02:00 committed by Ludovic Courtès
parent 36640207c9
commit b56cbe8974
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/build/syscalls.scm
View File

@ -1404,7 +1404,7 @@ bytevector BV at INDEX."
(error "unsupported socket address" sockaddr)))))
(define write-socket-address!
(if (string-suffix? "linux-gnu" %host-type)
(if (string-contains %host-type "linux-gnu")
write-socket-address!/linux
write-socket-address!/hurd))
@ -1436,7 +1436,7 @@ bytevector BV at INDEX."
(vector family)))))
(define read-socket-address
(if (string-suffix? "linux-gnu" %host-type)
(if (string-contains %host-type "linux-gnu")
read-socket-address/linux
read-socket-address/hurd))