From d11a432adffe9308eafec6b77cddd3145029109e Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 5 Aug 2022 15:26:17 +0200
Subject: 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.
---
 guix/scripts/system.scm | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'guix/scripts')

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.
-- 
cgit v1.2.3