03/12: scripts: describe: Replace 'args-fold*' by 'parse-command-line'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 946f563d91502768eab25ac7a93bbd52b0278b06
Author: zimoun <zimon.toutoune@gmail.com>
AuthorDate: Mon Mar 29 12:17:59 2021 +0200

    scripts: describe: Replace 'args-fold*' by 'parse-command-line'.
    
    * guix/scripts/describe.scm (define-command): Replace 'args-fold*' by
    'parse-command-line'.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 guix/scripts/describe.scm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/guix/scripts/describe.scm b/guix/scripts/describe.scm
index be2279d..b5f6249 100644
--- a/guix/scripts/describe.scm
+++ b/guix/scripts/describe.scm
@@ -2,6 +2,7 @@
 ;;; Copyright © 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
 ;;; Copyright © 2020 Ekaitz Zarraga <ekaitz@elenq.tech>
+;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -286,12 +287,9 @@ text.  The hyperlink links to a web view of COMMIT, when 
available."
 
 (define-command (guix-describe . args)
   (synopsis "describe the channel revisions currently used")
-  (let* ((opts    (args-fold* args %options
-                              (lambda (opt name arg result)
-                                (leave (G_ "~A: unrecognized option~%")
-                                       name))
-                              cons
-                              %default-options))
+  (let* ((opts    (parse-command-line args %options (list %default-options)
+                              #:build-options? #f
+                              #:argument-handler cons))
          (format  (assq-ref opts 'format))
          (profile (or (assq-ref opts 'profile) (current-profile))))
     (with-error-handling