X-Git-Url: https://git.jsancho.org/?p=guile-click.git;a=blobdiff_plain;f=click%2Futil.scm;h=827a4a9b2e12885fa179317b56dbdfe5d2334638;hp=c3ac062cd606aeff46bf46a1bfc03cc58d35055a;hb=487cd0d4c6c0ee9681cc132e5316ded7fc5dd0f7;hpb=6d51ec37e2379849f195976753e4b6919c0cfe1d

diff --git a/click/util.scm b/click/util.scm
index c3ac062..827a4a9 100644
--- a/click/util.scm
+++ b/click/util.scm
@@ -22,13 +22,7 @@
   #: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)
@@ -50,6 +44,9 @@
         default)))
 
 
+(define program-name (make-parameter #f))
+
+
 ;; Types
 (define TYPE-TEXT
   `((description . "TEXT")