From c84c4c1db76e248c7709b1b5421f7539134d8cdb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 17 Jul 2019 20:09:24 +0200 Subject: [PATCH] pull: Remove unused procedures. * guix/scripts/pull.scm (what-to-build, indirect-root-added): Remove. --- guix/scripts/pull.scm | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm index 7895c19914..b07420939b 100644 --- a/guix/scripts/pull.scm +++ b/guix/scripts/pull.scm @@ -162,16 +162,11 @@ Download and deploy the latest version of Guix.\n")) %standard-build-options)) -(define what-to-build - (store-lift show-what-to-build)) -(define indirect-root-added - (store-lift add-indirect-root)) - (define* (display-profile-news profile #:key concise? current-is-newer?) "Display what's up in PROFILE--new packages, and all that. If CURRENT-IS-NEWER? is true, assume that the current process represents the -newest generation of PROFILE.x" +newest generation of PROFILE." (match (memv (generation-number profile) (reverse (profile-generations profile))) ((current previous _ ...)