me/guix
Archived
1
0
Fork 0
Code 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 ;; '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 ;; RAM disks, but in all other cases the (guix build syscalls) module contains
;; the mount binding. ;; the mount binding.
(unless (defined? 'mount) (eval-when (expand load eval)
(module-use! (current-module) (unless (defined? 'mount)
(resolve-interface '(guix build syscalls)))) (module-use! (current-module)
(resolve-interface '(guix build syscalls)))))
;; Linux mount flags, from libc's <sys/mount.h>. ;; Linux mount flags, from libc's <sys/mount.h>.
(define MS_RDONLY 1) (define MS_RDONLY 1)