From 95bc62b45e7c133f02aad53461f80b7dcb8ba585 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Fri, 2 May 2014 09:49:19 +0900
Subject: [PATCH] Fixing app help with begin: end: fields.

---
 lib/chibi/app.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/chibi/app.scm b/lib/chibi/app.scm
index 3fbb7afa..3b2453fb 100644
--- a/lib/chibi/app.scm
+++ b/lib/chibi/app.scm
@@ -227,7 +227,8 @@
       (cond
        ((null? ls)
         (print-help (car spec) docs commands options out))
-       ((string? (car ls))
+       ((or (string? (car ls))
+            (and (pair? (car ls)) (memq (caar ls) '(begin: end:) )))
         (lp (cdr ls) (car ls) commands options))
        ((and (pair? (car ls)) (eq? '@ (caar ls)))
         (lp (cdr ls) docs commands (append options (cadr (car ls)))))