-(define* (option-default-value option #:optional (no-prompt #f))
- "Get default value for option, asking user if prompt property is set"
+
+(define program-name (make-parameter #f))
+
+
+;; Types
+(define TYPE-TEXT
+ `((description . "TEXT")
+ (convert . ,identity)))
+(define TYPE-INTEGER
+ `((description . "INTEGER")
+ (convert . ,string->number)))
+(define TYPE-NUMBER
+ `((description . "NUMBER")
+ (convert . ,string->number)))
+
+(define (option-type option)
+ "Return allowed type for the value in the option"