#:export (getopt-long-option-spec
option-property
option-type
- program-name
- %program-name))
-
-
-(define %program-name (make-fluid "guile"))
-(define (program-name)
- (fluid-ref %program-name))
+ program-name))
(define (getopt-long-option-spec option-spec)
default)))
+(define program-name (make-parameter #f))
+
+
;; Types
(define TYPE-TEXT
`((description . "TEXT")