aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-07-13 22:30:01 +0200
committerLudovic Courtès <ludo@gnu.org>2015-07-14 15:24:18 +0200
commit2de3cd8972be9181a727105ee3b0b35b24cf5317 (patch)
tree3de238794cda0707cc6870855fec2aa5f8f7bcca
parent0577ddc45d9c1b19728a60348bc6f93de0a8f725 (diff)
downloadguix-2de3cd8972be9181a727105ee3b0b35b24cf5317.tar
guix-2de3cd8972be9181a727105ee3b0b35b24cf5317.tar.gz
file-systems: Use (guix build syscalls) at build time if needed.
* gnu/build/file-systems.scm: Wrap 'module-use!' statement in 'eval-when'.
-rw-r--r--gnu/build/file-systems.scm7
1 files 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 <sys/mount.h>.
(define MS_RDONLY 1)