graph: Ignore 'GUIX_BUILD_OPTIONS'.

Previously 'GUIX_BUILD_OPTIONS' would be honored, but 'guix graph' does
not support the common build options.

* guix/scripts/graph.scm (guix-graph): Use 'args-fold*' instead of
'parse-command-line'.
This commit is contained in:
Ludovic Courtès 2016-03-02 14:42:39 +01:00
parent 7573d30ff8
commit 637cd12543
1 changed files with 6 additions and 2 deletions

View File

@ -341,8 +341,12 @@ Emit a Graphviz (dot) representation of the dependencies of PACKAGE...\n"))
(define (guix-graph . args)
(with-error-handling
(let* ((opts (parse-command-line args %options
(list %default-options)))
(let* ((opts (args-fold* args %options
(lambda (opt name arg . rest)
(leave (_ "~A: unrecognized option~%") name))
(lambda (arg result)
(alist-cons 'argument arg result))
%default-options))
(type (assoc-ref opts 'node-type))
(packages (filter-map (match-lambda
(('argument . spec)