Using begin:/end: to better distinguish app hooks from command names.

This commit is contained in:
Alex Shinn 2014-01-14 22:14:38 +09:00
parent e22c0a40ba
commit c14d67a6f7

View file

@ -141,9 +141,9 @@
((or)
(any (lambda (x) (parse-app prefix x opt-spec args config init end))
(cdar spec)))
((begin)
((begin:)
(parse-app prefix (cdr spec) opt-spec args config (cadr (car spec)) end fail))
((end)
((end:)
(parse-app prefix (cdr spec) opt-spec args config init (cadr (car spec)) fail))
(else
(if (procedure? (caar spec))