From e478fd9747c0a97212ec86871c68feb1641961bb Mon Sep 17 00:00:00 2001
From: zimoun <zimon.toutoune@gmail.com>
Date: Fri, 17 Jan 2020 18:30:00 +0100
Subject: refresh: Fix internal variable name.
* guix/scripts/refresh.scm (%option): Fix internal variable name.
---
guix/scripts/refresh.scm | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
(limited to 'guix')
diff --git a/guix/scripts/refresh.scm b/guix/scripts/refresh.scm
index bc8e906054..efada1df5a 100644
--- a/guix/scripts/refresh.scm
+++ b/guix/scripts/refresh.scm
@@ -120,16 +120,16 @@
;; The short option -L is already used by --list-updaters, therefore
;; it needs to be removed from %standard-build-options.
- (let ((%load-path-option (find (lambda (option)
+ (let ((load-path-option (find (lambda (option)
(member "load-path"
(option-names option)))
%standard-build-options)))
(option
(filter (lambda (name) (not (equal? #\L name)))
- (option-names %load-path-option))
- (option-required-arg? %load-path-option)
- (option-optional-arg? %load-path-option)
- (option-processor %load-path-option)))
+ (option-names load-path-option))
+ (option-required-arg? load-path-option)
+ (option-optional-arg? load-path-option)
+ (option-processor load-path-option)))
(option '(#\h "help") #f #f
(lambda args
--
cgit v1.2.3