diff options
| -rw-r--r-- | gnu/build/file-systems.scm | 7 | ||||
| -rw-r--r-- | gnu/system.scm | 1 |
2 files changed, 8 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) diff --git a/gnu/system.scm b/gnu/system.scm index d63804a06c..efad14596a 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -689,6 +689,7 @@ etc." (gnu build linux-modules) (gnu build file-systems) (guix build utils) + (guix build syscalls) (guix elf))) (define (service-activations services) |