#:use-module ((guix licenses)
#:select (gpl3+ license? license-name))
#:use-module ((guix utils) #:select (%current-system))
+ #:use-module ((guix scripts system) #:select (read-operating-system))
#:use-module ((guix scripts pack)
#:select (self-contained-tarball))
#:use-module (gnu bootloader)
#:use-module (ice-9 match)
#:use-module (rnrs bytevectors)
#:export (guix-system
+ read-operating-system
service-node-type
shepherd-service-node-type))
(gnu services)
(gnu system shadow))))
+;; Note: The procedure below is used in external projects such as Emacs-Guix.
+(define (read-operating-system file)
+ "Read the operating-system declaration from FILE and return it."
+ (load* file %user-module))
+
\f
;;;
;;; Installation.