X-Git-Url: https://git.jsancho.org/?p=guile-click.git;a=blobdiff_plain;f=click%2Futil.scm;fp=click%2Futil.scm;h=1699014e23a0791df373afd576691c6a05c758fe;hp=c3ac062cd606aeff46bf46a1bfc03cc58d35055a;hb=ebf74b7c3fda8ead57a398bb6a1555067150d06f;hpb=ee290f19711b9e4fb789a0b2a164635e7140a8e5

diff --git a/click/util.scm b/click/util.scm
index c3ac062..1699014 100644
--- a/click/util.scm
+++ b/click/util.scm
@@ -21,14 +21,7 @@
   #:use-module (click constant)
   #: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))
+            option-type))
 
 
 (define (getopt-long-option-spec option-spec)