nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
David Thompson 2015-07-07 21:58:15 -04:00
parent 9f04196d88
commit 85c3127fa9
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -50,6 +50,13 @@
;;; ;;;
;;; Code: ;;; 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>. ;; Linux mount flags, from libc's <sys/mount.h>.
(define MS_RDONLY 1) (define MS_RDONLY 1)
(define MS_NOSUID 2) (define MS_NOSUID 2)

1
gnu/system.scm
View File

@ -689,6 +689,7 @@ etc."
(gnu build linux-modules) (gnu build linux-modules)
(gnu build file-systems) (gnu build file-systems)
(guix build utils) (guix build utils)
(guix build syscalls)
(guix elf))) (guix elf)))
(define (service-activations services) (define (service-activations services)