From ec2406efc7abc07dc21a60d7a1c15bdafc8e233b Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 24 Jul 2015 01:17:19 +0200 Subject: vm: Use the 'umount' procedure instead of util-linux's 'umount' command. * gnu/build/vm.scm (initialize-root-partition, initialize-hard-disk): Use the 'umount' procedure instead of invoking the 'umount' command. * gnu/system/vm.scm (qemu-image): Remove UTIL-LINUX from INPUTS. --- gnu/build/vm.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gnu/build') diff --git a/gnu/build/vm.scm b/gnu/build/vm.scm index 2c53cf5dd9..15c22a3e55 100644 --- a/gnu/build/vm.scm +++ b/gnu/build/vm.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014 Ludovic Courtès +;;; Copyright © 2013, 2014, 2015 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -172,7 +172,7 @@ (define target-store (string-append "/xchg/" closure))) closures) (unless copy-closures? - (system* "umount" target-store))) + (umount target-store))) ;; Add the non-store directories and files. (display "populating...\n") @@ -236,6 +236,6 @@ (define partition (unless register-closures? (reset-timestamps target-directory)) - (zero? (system* "umount" target-directory))) + (umount target-directory)) ;;; vm.scm ends here -- cgit v1.2.3