typo: error message in parse-command-line

This commit is contained in:
Ben Greenman 2017-04-12 14:51:32 -04:00
parent 662fd84eda
commit 1e29362dad

View File

@ -260,7 +260,7 @@
(bad-table "~a line must be a string: ~e" (car spec) line))
(begin
(unless (and (list? line) (= (length line) 3))
(bad-table "spec-line must be a list of at three or four items: ~e" line))
(bad-table "spec-line must be a list of three or four items: ~e" line))
(unless (list? (car line))
(bad-table "flags part of a spec-line must be a list: ~e" (car line)))
(for ([flag (in-list (car line))])