diff options
Diffstat (limited to 'guix/build/syscalls.scm')
| -rw-r--r-- | guix/build/syscalls.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index 6f2a061f35..94d335b67c 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) |