18/18: guix system: Remove unused 'read-operating-system' procedure.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit d11a432adffe9308eafec6b77cddd3145029109e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Aug 5 15:26:17 2022 +0200

    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.
---
 gnu/ci.scm              | 1 -
 guix/scripts/system.scm | 5 -----
 2 files changed, 6 deletions(-)

diff --git a/gnu/ci.scm b/gnu/ci.scm
index f476e22731..9389b43824 100644
--- a/gnu/ci.scm
+++ b/gnu/ci.scm
@@ -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)
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index bfde0a88ca..be6e839941 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -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.