branch master updated: scripts: Typo in args-fold*.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

janneke pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new fdef0d8  scripts: Typo in args-fold*.
fdef0d8 is described below

commit fdef0d85ce5da48a15b6e32edb2cf98cc146248f
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Sun Jul 12 09:21:44 2020 +0200

    scripts: Typo in args-fold*.
    
    * guix/scripts.scm (args-fold*): Add missing 'args' parameter so that
    the all parameter names match their value.
---
 guix/scripts.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/guix/scripts.scm b/guix/scripts.scm
index 3e19e38..8534948 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.