cmdline: three/four items -> three items
This commit is contained in:
parent
209a90d281
commit
22cf2750a7
|
@ -272,7 +272,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 three or four items: ~e" line))
|
||||
(bad-table "spec-line must be a list of three 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))])
|
||||
|
|
Loading…
Reference in New Issue
Block a user