(cond ((null? option-spec)
'())
(else
- (let ((option (caar option-spec)))
- (cons (cons option (option-ref options option #f))
+ (let* ((option (car option-spec))
+ (option-name (car option))
+ (default (option-default-value option)))
+ (cons (cons option-name (option-ref options option-name default))
(get-options-value options (cdr option-spec)))))))
(define (command option-spec procedure)