nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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'.
This commit is contained in:
Ludovic Courtès 2019-07-15 09:56:27 +02:00
parent 38302bd939
commit 456c7ade09
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
guix/build/syscalls.scm
View File

@ -48,13 +48,6 @@
MNT_EXPIRE MNT_EXPIRE
UMOUNT_NOFOLLOW UMOUNT_NOFOLLOW
AT_FDCWD
AT_SYMLINK_NOFOLLOW
AT_REMOVEDIR
AT_SYMLINK_FOLLOW
AT_NO_AUTOMOUNT
AT_EMPTY_PATH
restart-on-EINTR restart-on-EINTR
mount-points mount-points
swapon swapon
@ -686,12 +679,12 @@ mounted at FILE."
;; Flags for the *at command, notably the 'utime' procedure of libguile. ;; Flags for the *at command, notably the 'utime' procedure of libguile.
;; From <fcntl.h>. ;; From <fcntl.h>.
(define AT_FDCWD -100) (define-as-needed AT_FDCWD -100)
(define AT_SYMLINK_NOFOLLOW #x100) (define-as-needed AT_SYMLINK_NOFOLLOW #x100)
(define AT_REMOVEDIR #x200) (define-as-needed AT_REMOVEDIR #x200)
(define AT_SYMLINK_FOLLOW #x400) (define-as-needed AT_SYMLINK_FOLLOW #x400)
(define AT_NO_AUTOMOUNT #x800) (define-as-needed AT_NO_AUTOMOUNT #x800)
(define AT_EMPTY_PATH #x1000) (define-as-needed AT_EMPTY_PATH #x1000)
(define-syntax BLKRRPART ;<sys/mount.h> (define-syntax BLKRRPART ;<sys/mount.h>
(identifier-syntax #x125F)) (identifier-syntax #x125F))