Make sure the warning case returns false.
This commit is contained in:
parent
06159627aa
commit
0f9e5e2313
2 changed files with 8 additions and 5 deletions
|
@ -59,8 +59,10 @@
|
|||
print-help
|
||||
(-h "This help" ()
|
||||
(print "Command-line options:")
|
||||
(newline)
|
||||
(print-help)
|
||||
(newline)
|
||||
(exit 0))
|
||||
(-a "One-argument" (x) (print "Argument x " x))
|
||||
(-b "Two arguments" (x y) (print "Arguments " x y))
|
||||
(-c "Argument lambda" (lambda (x) (print "Lambda x " x))))
|
||||
(-mfkw "Member-File invalid Key Warning" () (*member-file-check-syntax* 'warning))
|
||||
(-mfkq "Member-File invalid Key Quiet" () (*member-file-check-syntax* 'quiet))
|
||||
(-mfec "Member-File parser Error Context (lines)" (n) (*member-file-context* (string->number n))))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue