aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-08-12 21:41:45 +0200
committerLudovic Courtès <ludo@gnu.org>2014-08-12 21:51:45 +0200
commitdfd1d5edf6f4980a99e501a255ee928285a37ff5 (patch)
tree6e6fc32b09ce7ecca7a4ffaccd5d4d5007b18d2a
parentb36fcf95509a83ba84f1692e9cb4dca23a8a63dd (diff)
downloadguix-dfd1d5edf6f4980a99e501a255ee928285a37ff5.tar
guix-dfd1d5edf6f4980a99e501a255ee928285a37ff5.tar.gz
guix package: Remove leftover internal procedure.
Reported by Alex Kost <alezost@gmail.com>. * guix/scripts/package.scm (guix-package)[process-actions]: Remove 'same-package?'.
-rw-r--r--guix/scripts/package.scm6
1 files changed, 0 insertions, 6 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index 7c3ac24992..3bfef4fc9a 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -796,12 +796,6 @@ more information.~%"))
(define dry-run? (assoc-ref opts 'dry-run?))
(define profile (assoc-ref opts 'profile))
- (define (same-package? entry name output)
- (match entry
- (($ <manifest-entry> entry-name _ entry-output _ ...)
- (and (equal? name entry-name)
- (equal? output entry-output)))))
-
(define current-generation-number
(generation-number profile))