diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index ec1ce89016..6d3151051b 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -34,6 +34,10 @@ MS_BIND MS_MOVE MS_STRICTATIME + MNT_FORCE + MNT_DETACH + MNT_EXPIRE + UMOUNT_NOFOLLOW restart-on-EINTR mount umount @@ -150,6 +154,11 @@ (define MS_MOVE 8192) (define MS_STRICTATIME 16777216) +(define MNT_FORCE 1) +(define MNT_DETACH 2) +(define MNT_EXPIRE 4) +(define UMOUNT_NOFOLLOW 8) + (define mount (let* ((ptr (dynamic-func "mount" (dynamic-link))) (proc (pointer->procedure int ptr `(* * * ,unsigned-long *))))