diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-08-12 21:41:45 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-08-12 21:51:45 +0200 |
| commit | dfd1d5edf6f4980a99e501a255ee928285a37ff5 (patch) | |
| tree | 6e6fc32b09ce7ecca7a4ffaccd5d4d5007b18d2a | |
| parent | b36fcf95509a83ba84f1692e9cb4dca23a8a63dd (diff) | |
| download | guix-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.scm | 6 |
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)) |