aboutsummaryrefslogtreecommitdiff
path: root/gnu/build
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2015-07-07 21:58:15 -0400
committerDavid Thompson <dthompson2@worcester.edu>2015-07-09 08:23:03 -0400
commit85c3127fa9226ff9efa504dddffcf8442f54488d (patch)
tree65d870e74969c9caa56de7b67c71379b6dcaa360 /gnu/build
parent9f04196d88a9b50ea65a6eb05dc0372e985bca41 (diff)
downloadguix-85c3127fa9226ff9efa504dddffcf8442f54488d.tar
guix-85c3127fa9226ff9efa504dddffcf8442f54488d.tar.gz
build: file-systems: Import (guix build syscalls) for non-static Guiles.
* gnu/build/file-systems.scm: Import (guix build syscalls) when 'mount' is not defined. * gnu/system.scm (operating-system-activation-script): Include (guix build syscalls) module in derivation.
Diffstat (limited to 'gnu/build')
-rw-r--r--gnu/build/file-systems.scm7
1 files changed, 7 insertions, 0 deletions
diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm
index 72c8bd59f3..04431ba596 100644
--- a/gnu/build/file-systems.scm
+++ b/gnu/build/file-systems.scm
@@ -50,6 +50,13 @@
;;;
;;; Code:
+;; '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))))
+
;; Linux mount flags, from libc's <sys/mount.h>.
(define MS_RDONLY 1)
(define MS_NOSUID 2)