~ruther/guix-local

d11a432adffe9308eafec6b77cddd3145029109e — Ludovic Courtès 3 years ago 12087b1
guix system: Remove unused 'read-operating-system' procedure.

* guix/scripts/system.scm (read-operating-system): Remove.
* gnu/ci.scm: Remove unused (guix scripts system) import.
2 files changed, 0 insertions(+), 6 deletions(-)

M gnu/ci.scm
M guix/scripts/system.scm
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.