~ruther/guix-local

2de3cd8972be9181a727105ee3b0b35b24cf5317 — Ludovic Courtès 10 years ago 0577ddc
file-systems: Use (guix build syscalls) at build time if needed.

* gnu/build/file-systems.scm: Wrap 'module-use!' statement in 'eval-when'.
1 files changed, 4 insertions(+), 3 deletions(-)

M gnu/build/file-systems.scm
M gnu/build/file-systems.scm => gnu/build/file-systems.scm +4 -3
@@ 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)