- (let ((values
- (getopt-long args (getopt-long-option-spec click-option-spec))))
- (if (option-ref values 'help #f)
- (let ((program-name (car args)))
- (display-help program-name new-command))
- (apply procedure (map cdr (get-values option-spec values))))))))
+ (let ((values (parse-args args click-option-spec)))
+ ;; Call current command
+ (cond ((option-ref values 'help #f)
+ (let ((program-name (car args)))
+ (display-help program-name new-command)))
+ (else
+ (when procedure
+ (apply procedure (map cdr (get-values option-spec values))))
+ ;; Call nested command (if exists)
+ (call-nested-command commands values)))))))
+