TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

file-systems: Use (guix build syscalls) at build time if needed.

Browse source 
* gnu/build/file-systems.scm: Wrap 'module-use!' statement in 'eval-when'.
This commit is contained in:
Ludovic Courtès 2015-07-13 22:30:01 +02:00
parent 0577ddc45d
commit 2de3cd8972
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/build/file-systems.scm
View file

@ -53,9 +53,10 @@ (define-module (gnu build file-systems)
;; '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)