original commit: 7fd23ab2db3040d5a692420a5a8a47644ed14bb4
This commit is contained in:
Robby Findler 1998-11-30 23:20:33 +00:00
parent 5e053463b9
commit 99686e8b43

View File

@ -227,6 +227,7 @@
("Only run test named <test-name>" "test-name")]))]) ("Only run test named <test-name>" "test-name")]))])
(parse-command-line "framework-test" argv command-line-flags (parse-command-line "framework-test" argv command-line-flags
(lambda files (lambda files
(printf "processing ~a~n" files)
(set! files-to-process (if (null? files) all-files files))) (set! files-to-process (if (null? files) all-files files)))
`("Names of the tests; defaults to all tests")) `("Names of the tests; defaults to all tests"))