[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/04: syscalls: 'device-in-use?' does not create a port.
From: |
guix-commits |
Subject: |
01/04: syscalls: 'device-in-use?' does not create a port. |
Date: |
Wed, 16 Jan 2019 13:21:37 -0500 (EST) |
civodul pushed a commit to branch wip-newt-installer
in repository guix.
commit f0e3f0af5a7e3a76067ebaf4a52fb75d3c68f027
Author: Ludovic Courtès <address@hidden>
Date: Wed Jan 16 16:16:24 2019 +0100
syscalls: 'device-in-use?' does not create a port.
* guix/build/syscalls.scm (device-in-use?): Use 'open-fdes' rather than
'open-file'.
---
guix/build/syscalls.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 64d6239..59cc270 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -693,9 +693,9 @@ mounted at FILE."
from fdisk_device_is_used function of util-linux. This is particulary useful
for devices that do not appear in /proc/self/mounts like overlayfs lowerdir
backend device."
- (let*-values (((port) (open-file device "rb"))
- ((ret err) (%ioctl (fileno port) BLKRRPART %null-pointer)))
- (close-port port)
+ (let*-values (((fd) (open-fdes device O_RDONLY))
+ ((ret err) (%ioctl fd BLKRRPART %null-pointer)))
+ (close-fdes fd)
(cond
((= ret 0)
#f)