Using begin/collect

svn: r12569
2008-11-21 16:15:39 +00:00 · 2008-11-21 16:15:39 +00:00 · 65d3d41096
commit 65d3d41096
parent 115f34a1e7
2 changed files with 2 additions and 2 deletions
--- a/collects/web-server/scribblings/templates.scrbl
+++ b/collects/web-server/scribblings/templates.scrbl
@ -268,7 +268,7 @@ the template to be unescaped, then create a @scheme[cdata] structure:
 Expands into
 @schemeblock[
  (for/list ([x xs])
-   (list e ...))
+   (begin/text e ...))
 ]
 
 Template Example:
--- a/collects/web-server/templates.ss
+++ b/collects/web-server/templates.ss
@ -25,7 +25,7 @@
  (syntax-rules ()
    [(_ x xs e ...)
     (for/list ([x xs])
-       (list e ...))]))
+       (begin/text e ...))]))

 (provide include-template
         in)