From dfd1d5edf6f4980a99e501a255ee928285a37ff5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 12 Aug 2014 21:41:45 +0200
Subject: [PATCH] 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 7c3ac24992e..3bfef4fc9ac 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -796,12 +796,6 @@ (define (process-actions opts)
(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))
--
GitLab