[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/03: size: Remove unused variables.
From: |
Ludovic Courtès |
Subject: |
01/03: size: Remove unused variables. |
Date: |
Sun, 21 Jun 2015 21:39:20 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit a8aa84af395246b3b2ac6ace62a5d611737d1f55
Author: Ludovic Courtès <address@hidden>
Date: Fri Jun 19 22:22:15 2015 +0200
size: Remove unused variables.
* guix/scripts/size.scm (ensure-store-item): Remove #:dry-run? parameter.
(%options): Remove 'dry-run?' variable.
---
guix/scripts/size.scm | 6 ++----
1 files changed, 2 insertions(+), 4 deletions(-)
diff --git a/guix/scripts/size.scm b/guix/scripts/size.scm
index 41dd604..2fe2f02 100644
--- a/guix/scripts/size.scm
+++ b/guix/scripts/size.scm
@@ -168,8 +168,7 @@ profile of ITEM and its requisites."
(return (profile item size dependencies)))))
sizes)))
-(define* (ensure-store-item spec-or-item
- #:key dry-run?)
+(define* (ensure-store-item spec-or-item)
"Return a store file name. If SPEC-OR-ITEM is a store file name, return it
as is. Otherwise, assume SPEC-OR-ITEM is a package output specification such
as \"guile:debug\" or \"gcc-4.8\" and return its store file name."
@@ -231,8 +230,7 @@ Report the size of PACKAGE and its dependencies.\n"))
(('argument . file) file)
(_ #f))
opts))
- (system (assoc-ref opts 'system))
- (dry-run? (assoc-ref opts 'dry-run?)))
+ (system (assoc-ref opts 'system)))
(match files
(()
(leave (_ "missing store item argument\n")))