diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-07-13 22:30:01 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-07-14 15:24:18 +0200 |
| commit | 2de3cd8972be9181a727105ee3b0b35b24cf5317 (patch) | |
| tree | 3de238794cda0707cc6870855fec2aa5f8f7bcca | |
| parent | 0577ddc45d9c1b19728a60348bc6f93de0a8f725 (diff) | |
| download | patches-2de3cd8972be9181a727105ee3b0b35b24cf5317.tar patches-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.scm | 7 |
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) |