+(define (get-normalized-value values option option-name)
+ "Get value for option, converting from string to the appropriate value"
+ (let ((convert-proc (assoc-ref (option-type option) 'convert))
+ (value (option-ref values option-name #f)))
+ (cond ((and value (not (option-property option 'flag)))
+ (convert-proc value))
+ (value
+ value)
+ (else
+ (get-option-default-value option)))))
+
+