Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing app help with begin: end: fields.

Browse source
This commit is contained in:
Alex Shinn 2014-05-02 09:49:19 +09:00
parent 35500df1d6
commit 95bc62b45e
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/app.scm
View file

@ -227,7 +227,8 @@
(cond (cond
((null? ls) ((null? ls)
(print-help (car spec) docs commands options out)) (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)) (lp (cdr ls) (car ls) commands options))
((and (pair? (car ls)) (eq? '@ (caar ls))) ((and (pair? (car ls)) (eq? '@ (caar ls)))
(lp (cdr ls) docs commands (append options (cadr (car ls))))) (lp (cdr ls) docs commands (append options (cadr (car ls)))))