Allow -x and -X options to be given multiple times in raco show-dependencies

This commit is contained in:
Georges Dupéron 2016-01-19 20:28:17 +01:00
parent 97623e1f66
commit 3a7517ae81

View File

@ -141,12 +141,13 @@
(set! mode 'file)]
[("-m" "--module-path") "Interpret arguments as module-paths"
(set! mode 'module-path)]
[("-b") "Same as --exclude racket/base"
(set! excludes (cons 'racket/base excludes))]
#:multi
[("-x" "--exclude") mod "Exclude <mod> and its dependencies"
(set! excludes (cons mod excludes))]
[("-X" "--exclude-deps") mod "Exclude the dependencies of <mod> (but not <mod> itself)"
(set! exclude-deps (cons mod exclude-deps))]
[("-b") "Same as --exclude racket/base"
(set! excludes (cons 'racket/base excludes))]
#:args module-path
(let ()
(define (->modpath x)