-
-(define (get-values option-spec values)
- "Return an associated list with values for all the options in option-spec"
- (cond ((null? option-spec)
- '())
- (else
- (let* ((option (car option-spec))
- (option-name (car option))
- (value (or (option-ref values option-name #f)
- (get-option-default-value option))))
- (cons (cons option-name value)
- (get-values (cdr option-spec) values))))))
-
-
-(define* (get-option-default-value option #:optional (no-prompt #f))
- "Get value for option, asking user if prompt property is set"
- (let ((default (option-property option 'default)))
- (if (not default)
- (let ((prompt (option-property option 'prompt)))
- (if prompt
- (readline (format #f "~a: " prompt))
- default))
- default)))