[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/04: syscalls: Properly match %HOST-TYPE.
From: |
guix-commits |
Subject: |
02/04: syscalls: Properly match %HOST-TYPE. |
Date: |
Fri, 29 May 2020 12:32:41 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit b56cbe8974c328a6c7bc28906478ef1b191ada4c
Author: Jesse Dowell <jesse.dowell@gmail.com>
AuthorDate: Fri May 29 16:39:39 2020 +0200
syscalls: Properly match %HOST-TYPE.
Fixes <https://bugs.gnu.org/41546>.
Regression introduced in 0d371c633f7308cfde2432d6119d386a5c63198c.
* 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>
---
guix/build/syscalls.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 8070c55..6be322d 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -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))