From 3a7517ae81c9f3b5f161d8a2b317e3444f5e3dbc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Tue, 19 Jan 2016 20:28:17 +0100 Subject: [PATCH] Allow -x and -X options to be given multiple times in raco show-dependencies --- .../macro-debugger/analysis/show-dependencies.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/macro-debugger-text-lib/macro-debugger/analysis/show-dependencies.rkt b/macro-debugger-text-lib/macro-debugger/analysis/show-dependencies.rkt index 6c2c575..e4e8bf1 100644 --- a/macro-debugger-text-lib/macro-debugger/analysis/show-dependencies.rkt +++ b/macro-debugger-text-lib/macro-debugger/analysis/show-dependencies.rkt @@ -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 and its dependencies" (set! excludes (cons mod excludes))] [("-X" "--exclude-deps") mod "Exclude the dependencies of (but not 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)