pull: Remove unused procedures.
* guix/scripts/pull.scm (what-to-build, indirect-root-added): Remove.
This commit is contained in:
parent
4569a7693e
commit
c84c4c1db7
|
@ -162,16 +162,11 @@ Download and deploy the latest version of Guix.\n"))
|
||||||
|
|
||||||
%standard-build-options))
|
%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?
|
(define* (display-profile-news profile #:key concise?
|
||||||
current-is-newer?)
|
current-is-newer?)
|
||||||
"Display what's up in PROFILE--new packages, and all that. If
|
"Display what's up in PROFILE--new packages, and all that. If
|
||||||
CURRENT-IS-NEWER? is true, assume that the current process represents the
|
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)
|
(match (memv (generation-number profile)
|
||||||
(reverse (profile-generations profile)))
|
(reverse (profile-generations profile)))
|
||||||
((current previous _ ...)
|
((current previous _ ...)
|
||||||
|
|
Loading…
Reference in New Issue