Return unknown option name as error

This commit is contained in:
Nikolay Puzanov 2022-11-30 20:01:15 +03:00
parent 01fc086e62
commit 35855b1918

View File

@ -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))