From a9fb42b3fd8367940e04f2c6ffe34e0b3cd7b65a Mon Sep 17 00:00:00 2001 From: Lilah Tascheter Date: Tue, 6 Aug 2024 19:11:16 -0500 Subject: [PATCH] guix: scripts: Remove unused code. * guix/scripts/system.scm (bootloader-installer-script): Delete. Change-Id: Ic1e0a523c814e4f1bf44b2721f5658f00066b0ab --- guix/scripts/system.scm | 22 ---------------------- 1 file changed, 22 deletions(-) diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index 0fd153a278..881f2de104 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -754,28 +754,6 @@ (define (maybe-suggest-running-guix-pull) (warning (G_ "Consider running 'guix pull' before 'reconfigure'.~%")) (warning (G_ "Failing to do that may downgrade your system!~%")))) -(define (bootloader-installer-script installer - bootloader device target) - "Return a file calling INSTALLER gexp with given BOOTLOADER, DEVICE -and TARGET arguments." - (scheme-file "bootloader-installer" - (with-imported-modules '((gnu build bootloader) - (guix build utils)) - #~(begin - (use-modules (gnu build bootloader) - (guix build utils) - (ice-9 binary-ports) - (srfi srfi-34) - (srfi srfi-35)) - - (guard (c ((message-condition? c) ;XXX: i18n - (format (current-error-port) "error: ~a~%" - (condition-message c)) - (exit 1))) - (#$installer #$bootloader #$device #$target) - (info (G_ "bootloader successfully installed on '~a'~%") - #$device)))))) - (define (local-eval exp) "Evaluate EXP, a G-Expression, in-place." (mlet* %store-monad ((lowered (lower-gexp exp))