diff options
| author | Julien Lepiller <julien@lepiller.eu> | 2020-04-20 16:21:17 +0200 |
|---|---|---|
| committer | Julien Lepiller <julien@lepiller.eu> | 2020-04-20 16:30:14 +0200 |
| commit | fd546bbbeee5237e29264791b61f9ba453ebff9f (patch) | |
| tree | 68acb7324f59074d6de86d5b4be82dd0f39e09e5 | |
| parent | e68c8d3ef8d59b8c81fedd8fe9ea38f51cb9437a (diff) | |
| download | guix-fd546bbbeee5237e29264791b61f9ba453ebff9f.tar guix-fd546bbbeee5237e29264791b61f9ba453ebff9f.tar.gz | |
syscalls: Fix Linux detection in 'readdir*'.
* guix/build/syscalls.scm (readdir*): Fix Linux detection for
`arm-unknown-linux-gnueabihf'.
| -rw-r--r-- | guix/build/syscalls.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index 7ef03417c1..73b439fb7d 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -4,6 +4,7 @@ ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net> +;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu> ;;; ;;; This file is part of GNU Guix. ;;; @@ -943,7 +944,7 @@ system to PUT-OLD." (define readdir* ;; Decide at run time which one must be used. - (if (string-suffix? "linux-gnu" %host-type) + (if (string-contains %host-type "linux-gnu") (readdir-procedure (c-struct-field-offset %struct-dirent-header/linux name) sizeof-dirent-header/linux |