Nested commands

[guile-click.git] / click / util.scm

diff --git a/click/util.scm b/click/util.scm
index 1699014e23a0791df373afd576691c6a05c758fe..827a4a9b2e12885fa179317b56dbdfe5d2334638 100644 (file)
--- a/click/util.scm
+++ b/click/util.scm
@@ -21,7 +21,8 @@
   #:use-module (click constant)
   #:export (getopt-long-option-spec
             option-property
-            option-type))
+            option-type
+           program-name))
 
 
 (define (getopt-long-option-spec option-spec)
@@ -43,6 +44,9 @@
         default)))
 
 
+(define program-name (make-parameter #f))
+
+
 ;; Types
 (define TYPE-TEXT
   `((description . "TEXT")