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

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

Browse source
This commit is contained in:
Alex Shinn 2014-01-14 22:14:38 +09:00
parent e22c0a40ba
commit c14d67a6f7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/app.scm
View file

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