Return unknown option name as error
This commit is contained in:
parent
01fc086e62
commit
35855b1918
@ -58,7 +58,7 @@
|
|||||||
opt-spec)
|
opt-spec)
|
||||||
;; unrecognized options
|
;; unrecognized options
|
||||||
(lambda (opt name arg opts rest error)
|
(lambda (opt name arg opts rest error)
|
||||||
(values opts rest #t))
|
(values opts rest name))
|
||||||
;; operands
|
;; operands
|
||||||
(lambda (operand opts rest error)
|
(lambda (operand opts rest error)
|
||||||
(values opts (cons operand rest) error))
|
(values opts (cons operand rest) error))
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user