-(define (get-options-value options option-spec)
- (cond ((null? option-spec)
- '())
- (else
- (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)))))))