diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-07-17 20:09:24 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-07-18 00:44:23 +0200 |
| commit | c84c4c1db76e248c7709b1b5421f7539134d8cdb (patch) | |
| tree | 8d70af8e205342c54291eb7bfd9a7f1ffc72479b | |
| parent | 4569a7693eded1d62c65c5a8042bd34e24636f28 (diff) | |
| download | patches-c84c4c1db76e248c7709b1b5421f7539134d8cdb.tar patches-c84c4c1db76e248c7709b1b5421f7539134d8cdb.tar.gz | |
pull: Remove unused procedures.
* guix/scripts/pull.scm (what-to-build, indirect-root-added): Remove.
| -rw-r--r-- | guix/scripts/pull.scm | 7 |
1 files changed, 1 insertions, 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 _ ...) |