summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-06-19 22:22:15 +0200
committerLudovic Courtès <ludo@gnu.org>2015-06-21 23:39:11 +0200
commita8aa84af395246b3b2ac6ace62a5d611737d1f55 (patch)
treee7431fca48c8579722b3ca0b852b81d79290aea6
parentbf76d98789a0fc6303c303beddbc1ed609f2a6ea (diff)
size: Remove unused variables.
* guix/scripts/size.scm (ensure-store-item): Remove #:dry-run? parameter. (%options): Remove 'dry-run?' variable.
-rw-r--r--guix/scripts/size.scm6
1 files changed, 2 insertions, 4 deletions
diff --git a/guix/scripts/size.scm b/guix/scripts/size.scm
index 41dd6043a7..2fe2f02356 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")))