diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-07-15 09:56:27 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-07-15 10:00:12 +0200 |
| commit | 456c7ade095cce96f47389c37a4fe3b0390047fd (patch) | |
| tree | 65d36414ef55cc06c6d313c05ac0ca0fae1becdb /guix | |
| parent | 38302bd9392cc9518b04e2726cf6a38ee75922cc (diff) | |
| download | gnu-guix-456c7ade095cce96f47389c37a4fe3b0390047fd.tar gnu-guix-456c7ade095cce96f47389c37a4fe3b0390047fd.tar.gz | |
syscalls: Use 'define-as-needed' for 'AT_' constants introduced in Guile 2.2.5.
* guix/build/syscalls.scm (AT_FDCWD, AT_SYMLINK_NOFOLLOW, AT_REMOVEDIR)
(AT_SYMLINK_FOLLOW, AT_NO_AUTOMOUNT, AT_EMPTY_PATH): Define using
'define-as-needed'.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/build/syscalls.scm | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index eb045cbd1c..3c84d3893f 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -48,13 +48,6 @@ MNT_EXPIRE UMOUNT_NOFOLLOW - AT_FDCWD - AT_SYMLINK_NOFOLLOW - AT_REMOVEDIR - AT_SYMLINK_FOLLOW - AT_NO_AUTOMOUNT - AT_EMPTY_PATH - restart-on-EINTR mount-points swapon @@ -686,12 +679,12 @@ mounted at FILE." ;; Flags for the *at command, notably the 'utime' procedure of libguile. ;; From <fcntl.h>. -(define AT_FDCWD -100) -(define AT_SYMLINK_NOFOLLOW #x100) -(define AT_REMOVEDIR #x200) -(define AT_SYMLINK_FOLLOW #x400) -(define AT_NO_AUTOMOUNT #x800) -(define AT_EMPTY_PATH #x1000) +(define-as-needed AT_FDCWD -100) +(define-as-needed AT_SYMLINK_NOFOLLOW #x100) +(define-as-needed AT_REMOVEDIR #x200) +(define-as-needed AT_SYMLINK_FOLLOW #x400) +(define-as-needed AT_NO_AUTOMOUNT #x800) +(define-as-needed AT_EMPTY_PATH #x1000) (define-syntax BLKRRPART ;<sys/mount.h> (identifier-syntax #x125F)) |