diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-08-05 15:26:17 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-08-05 15:28:05 +0200 |
| commit | d11a432adffe9308eafec6b77cddd3145029109e (patch) | |
| tree | faf17a82e659d4311c8b28ef6ecf43c1aa84b21b | |
| parent | 12087b1b19e6d6e746304447669dfe5b66090012 (diff) | |
| download | guix-d11a432adffe9308eafec6b77cddd3145029109e.tar.gz guix-d11a432adffe9308eafec6b77cddd3145029109e.zip | |
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.
| -rw-r--r-- | gnu/ci.scm | 1 | ||||
| -rw-r--r-- | guix/scripts/system.scm | 5 |
2 files changed, 0 insertions, 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. |