ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

refresh: Fix internal variable name.

Browse source 
* guix/scripts/refresh.scm (%option): Fix internal variable name.
This commit is contained in:
zimoun 2020-01-17 18:30:00 +01:00 committed by Pierre Neidhardt
parent 1cc9c38e90
commit e478fd9747
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/scripts/refresh.scm
View file

@ -120,16 +120,16 @@ (define %options
;; The short option -L is already used by --list-updaters, therefore ;; The short option -L is already used by --list-updaters, therefore
;; it needs to be removed from %standard-build-options. ;; 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" (member "load-path"
(option-names option))) (option-names option)))
%standard-build-options))) %standard-build-options)))
(option (option
(filter (lambda (name) (not (equal? #\L name))) (filter (lambda (name) (not (equal? #\L name)))
(option-names %load-path-option)) (option-names load-path-option))
(option-required-arg? %load-path-option) (option-required-arg? load-path-option)
(option-optional-arg? %load-path-option) (option-optional-arg? load-path-option)
(option-processor %load-path-option))) (option-processor load-path-option)))
(option '(#\h "help") #f #f (option '(#\h "help") #f #f
(lambda args (lambda args