From d11a432adffe9308eafec6b77cddd3145029109e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès 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. --- 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. -- cgit v1.2.3