diff options
| author | Jan (janneke) Nieuwenhuizen <janneke@gnu.org> | 2020-07-12 09:21:44 +0200 |
|---|---|---|
| committer | Jan (janneke) Nieuwenhuizen <janneke@gnu.org> | 2020-07-12 10:07:59 +0200 |
| commit | fdef0d85ce5da48a15b6e32edb2cf98cc146248f (patch) | |
| tree | af7f47555c911b2d219c0298cce8930c0018bdee | |
| parent | 83b5ea9d18772334a47c3d76c6ca73a123cac12c (diff) | |
| download | guix-fdef0d85ce5da48a15b6e32edb2cf98cc146248f.tar.gz | |
scripts: Typo in args-fold*.
* guix/scripts.scm (args-fold*): Add missing 'args' parameter so that the all parameter names match their value.
| -rw-r--r-- | guix/scripts.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/scripts.scm b/guix/scripts.scm index 3e19e38957..8534948892 100644 --- a/guix/scripts.scm +++ b/guix/scripts.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2013, 2014, 2015, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014 Deck Pickard <deck.r.pickard@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. ;;; @@ -49,12 +50,12 @@ ;;; ;;; 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 reporting." (catch 'misc-error (lambda () - (apply args-fold options unrecognized-option-proc + (apply args-fold args options unrecognized-option-proc operand-proc seeds)) (lambda (key proc msg args . rest) ;; XXX: MSG is not i18n'd. |