racket/cmdline: fix table filtering when #:ps is used

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)

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))