From 41e3deab97fc83729807570da394016318f98ce8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 24 Mar 2017 17:06:04 -0600 Subject: [PATCH] racket/cmdline: fix table filtering when `#:ps` is used --- pkgs/racket-test-core/tests/racket/cmdline.rktl | 8 ++++++++ racket/collects/racket/cmdline.rkt | 2 ++ 2 files changed, 10 insertions(+) diff --git a/pkgs/racket-test-core/tests/racket/cmdline.rktl b/pkgs/racket-test-core/tests/racket/cmdline.rktl index c57e890b3f..1780098b90 100644 --- a/pkgs/racket-test-core/tests/racket/cmdline.rktl +++ b/pkgs/racket-test-core/tests/racket/cmdline.rktl @@ -215,4 +215,12 @@ (test 'ok parse-command-line "test" #("x") null (case-lambda [(x) 'none] [(x . ys) 'ok]) '("arg")) (test 'ok parse-command-line "test" #("x") null (case-lambda [(x) 'none] [(x y . z) 'ok]) '("arg")) +;; test that `#:ps` doesn't mess up error reporting +(err/rt-test (let ([args "args"]) + (command-line + #:program "something" + #:argv #("-x") + #:ps "Stuff")) + (lambda (x) (regexp-match? #rx"unknown switch" (exn-message x)))) + (report-errs) diff --git a/racket/collects/racket/cmdline.rkt b/racket/collects/racket/cmdline.rkt index b41c4139f8..766aa814f6 100644 --- a/racket/collects/racket/cmdline.rkt +++ b/racket/collects/racket/cmdline.rkt @@ -414,6 +414,8 @@ null] [(eq? (car spec) 'help-labels) null] + [(eq? (car spec) 'ps) + null] [(eq? (car spec) 'multi) (map (lambda (line) (cons #f line))