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 "~%~%")