Using begin/collect

svn: r12569
This commit is contained in:
Jay McCarthy 2008-11-21 16:15:39 +00:00
parent 115f34a1e7
commit 65d3d41096
2 changed files with 2 additions and 2 deletions

View File

@ -268,7 +268,7 @@ the template to be unescaped, then create a @scheme[cdata] structure:
Expands into Expands into
@schemeblock[ @schemeblock[
(for/list ([x xs]) (for/list ([x xs])
(list e ...)) (begin/text e ...))
] ]
Template Example: Template Example:

View File

@ -25,7 +25,7 @@
(syntax-rules () (syntax-rules ()
[(_ x xs e ...) [(_ x xs e ...)
(for/list ([x xs]) (for/list ([x xs])
(list e ...))])) (begin/text e ...))]))
(provide include-template (provide include-template
in) in)