scripts: Typo in args-fold*.

* guix/scripts.scm (args-fold*): Add missing 'args' parameter so that
the all parameter names match their value.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-07-12 09:21:44 +02:00
parent 83b5ea9d18
commit fdef0d85ce
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273

View file

@ -2,6 +2,7 @@
;;; Copyright © 2013, 2014, 2015, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Deck Pickard <deck.r.pickard@gmail.com> ;;; Copyright © 2014 Deck Pickard <deck.r.pickard@gmail.com>
;;; Copyright © 2015, 2016 Alex Kost <alezost@gmail.com> ;;; Copyright © 2015, 2016 Alex Kost <alezost@gmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -49,12 +50,12 @@ (define-module (guix scripts)
;;; ;;;
;;; Code: ;;; Code:
(define (args-fold* options unrecognized-option-proc operand-proc . seeds) (define (args-fold* args options unrecognized-option-proc operand-proc . seeds)
"A wrapper on top of `args-fold' that does proper user-facing error "A wrapper on top of `args-fold' that does proper user-facing error
reporting." reporting."
(catch 'misc-error (catch 'misc-error
(lambda () (lambda ()
(apply args-fold options unrecognized-option-proc (apply args-fold args options unrecognized-option-proc
operand-proc seeds)) operand-proc seeds))
(lambda (key proc msg args . rest) (lambda (key proc msg args . rest)
;; XXX: MSG is not i18n'd. ;; XXX: MSG is not i18n'd.