diff options
| author | zimoun <zimon.toutoune@gmail.com> | 2020-01-17 18:30:00 +0100 |
|---|---|---|
| committer | Pierre Neidhardt <mail@ambrevar.xyz> | 2020-01-18 13:08:11 +0100 |
| commit | e478fd9747c0a97212ec86871c68feb1641961bb (patch) | |
| tree | b9c3144a0c57ddba784424c97b48331bbe2792c3 | |
| parent | 1cc9c38e902aeb03295e9728b4cf40ff2b302716 (diff) | |
| download | patches-e478fd9747c0a97212ec86871c68feb1641961bb.tar patches-e478fd9747c0a97212ec86871c68feb1641961bb.tar.gz | |
refresh: Fix internal variable name.
* guix/scripts/refresh.scm (%option): Fix internal variable name.
| -rw-r--r-- | guix/scripts/refresh.scm | 10 |
1 files changed, 5 insertions, 5 deletions
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 |