From dfd1d5edf6f4980a99e501a255ee928285a37ff5 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Tue, 12 Aug 2014 21:41:45 +0200
Subject: guix package: Remove leftover internal procedure.

Reported by Alex Kost <alezost@gmail.com>.

* guix/scripts/package.scm (guix-package)[process-actions]: Remove
  'same-package?'.
---
 guix/scripts/package.scm | 6 ------
 1 file changed, 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))
 
-- 
cgit v1.2.3