M gnu/ci.scm => gnu/ci.scm +0 -1
@@ 39,7 39,6 @@
#: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 (lookup-compressor self-contained-tarball))
#:use-module (gnu bootloader)
M guix/scripts/system.scm => guix/scripts/system.scm +0 -5
@@ 91,7 91,6 @@
#:use-module (ice-9 match)
#:use-module (rnrs bytevectors)
#:export (guix-system
- read-operating-system
service-node-type
shepherd-service-node-type))
@@ 107,10 106,6 @@
(gnu services)
(gnu system shadow))))
-(define (read-operating-system file)
- "Read the operating-system declaration from FILE and return it."
- (load* file %user-module))
-
;;;
;;; Installation.