kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases 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 @@
;; '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)