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)
;; unrecognized options
(lambda (opt name arg opts rest error)
(values opts rest #t))
(values opts rest name))
;; operands
(lambda (operand opts rest error)
(values opts (cons operand rest) error))