Using begin/collect
svn: r12569
This commit is contained in:
parent
115f34a1e7
commit
65d3d41096
|
@ -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:
|
||||||
|
|
|
@ -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)
|
Loading…
Reference in New Issue
Block a user