diff options
| author | Sören Tempel <soeren@soeren-tempel.net> | 2023-09-17 17:21:48 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-10-23 11:58:16 +0200 |
| commit | dae956e7961ea4940a3823a7b33f8264196ca594 (patch) | |
| tree | 40d0e12b46cbfcc28a32c74a450943065be54f63 /guix/build | |
| parent | 54e6788267c0dac43ec9cb234c711eaa73a3d92b (diff) | |
syscalls: Consistently use existing linux? definition.
Instead of duplicating this existing logic across the source file. This
will make it easier to add additional linux targets (e.g. linux-musl) in
the future.
* guix/build/syscalls.scm (readdir*, write-socket-address!)
(read-socket-address): Use linux? constant.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Change-Id: I833c1d1630dcb8319584de1ea918cb22696f0058
Diffstat (limited to 'guix/build')
| -rw-r--r-- | guix/build/syscalls.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index e02ed07cd4..b845b8aab9 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -1245,7 +1245,7 @@ system to PUT-OLD." (define readdir* ;; Decide at run time which one must be used. - (if (string-contains %host-type "linux-gnu") + (if linux? (readdir-procedure (c-struct-field-offset %struct-dirent-header/linux name) sizeof-dirent-header/linux @@ -1665,7 +1665,7 @@ bytevector BV at INDEX." (error "unsupported socket address" sockaddr))))) (define write-socket-address! - (if (string-contains %host-type "linux-gnu") + (if linux? write-socket-address!/linux write-socket-address!/hurd)) @@ -1697,7 +1697,7 @@ bytevector BV at INDEX." (vector family))))) (define read-socket-address - (if (string-contains %host-type "linux-gnu") + (if linux? read-socket-address/linux read-socket-address/hurd)) |