From 2de3cd8972be9181a727105ee3b0b35b24cf5317 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 13 Jul 2015 22:30:01 +0200 Subject: [PATCH] file-systems: Use (guix build syscalls) at build time if needed. * gnu/build/file-systems.scm: Wrap 'module-use!' statement in 'eval-when'. --- gnu/build/file-systems.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm index 04431ba596..5814caf215 100644 --- a/gnu/build/file-systems.scm +++ b/gnu/build/file-systems.scm @@ -53,9 +53,10 @@ ;; 'mount' is already defined in the statically linked Guile used for initial ;; RAM disks, but in all other cases the (guix build syscalls) module contains ;; the mount binding. -(unless (defined? 'mount) - (module-use! (current-module) - (resolve-interface '(guix build syscalls)))) +(eval-when (expand load eval) + (unless (defined? 'mount) + (module-use! (current-module) + (resolve-interface '(guix build syscalls))))) ;; Linux mount flags, from libc's . (define MS_RDONLY 1)