63/67: syscalls: 'device-in-use?' does not create a port.

[guix-commits]

civodul pushed a commit to branch wip-newt-installer
in repository guix.

commit 15ec37196f77e59f0fa9b1752bcbaa7a7a7bee77
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 6f2a061..94d335b 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)