X-Git-Url: https://git.jsancho.org/?p=guile-click.git;a=blobdiff_plain;f=click%2Fhelp.scm;h=786c933080e8e4de776e4149620f7a6729cf0c71;hp=9d0c5cc05e9134d41cf7f0f0acb12fc138d35b09;hb=487cd0d4c6c0ee9681cc132e5316ded7fc5dd0f7;hpb=986fe49efb25343011f28262cd2b7afbf81dd78e

diff --git a/click/help.scm b/click/help.scm
index 9d0c5cc..786c933 100644
--- a/click/help.scm
+++ b/click/help.scm
@@ -72,11 +72,11 @@
               options)))
 
 
-(define* (display-help program-name command)
+(define* (display-help command)
   "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 "~%~%")