+
+(define* (option-default-value option #:optional (no-prompt #f))
+ "Get default 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)))