Nested commands

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

diff --git a/click/help.scm b/click/help.scm
index 9d0c5cc05e9134d41cf7f0f0acb12fc138d35b09..786c933080e8e4de776e4149620f7a6729cf0c71 100644 (file)
--- a/click/help.scm
+++ b/click/help.scm
@@ -72,11 +72,11 @@
               options)))
 
 
               options)))
 
 

-(define* (display-help program-name command)
+(define* (display-help command)

   "Display help message"
 
   ;; Usage
   "Display help message"
 
   ;; Usage

-  (format #t "Usage: ~a [OPTIONS]" program-name)
+  (format #t "Usage: ~a [OPTIONS]" (program-name))

   (when (group? command)
     (format #t " COMMAND [ARGS]..."))
   (format #t "~%~%")
   (when (group? command)
     (format #t " COMMAND [ARGS]..."))
   (format #t "~%~%")