suzanne.soy/macro-debugger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Georges Dupéron 2016-01-19 20:28:17 +01:00
parent 97623e1f66
commit 3a7517ae81
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
macro-debugger-text-lib/macro-debugger/analysis/show-dependencies.rkt
View File

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