Browse files

we should be applying body wrap in all cases, not just one

  • Loading branch information...
1 parent 0ab98a9 commit 81da4f9fff6c304b2f137bd82a2f40a813227640 @vegashacker committed Dec 18, 2008
Showing with 2 additions and 2 deletions.
  1. +2 −2 page.scm
@@ -80,7 +80,7 @@
(if (not redirect-to)
(e "Unless you are doing a #:redirect-to, a body is required.")
- (last body))))
+ (body-wrap (last body)))))
(cond (redirect-to (response-promise-to-redirect redirect-to))
((response/full? returned-body) returned-body)
((response-promise? returned-body) returned-body)
@@ -97,7 +97,7 @@
,@(map js-inc js)
,@(map raw-str raw-header)
(title ,title))
- (body ,body-attrs ,(body-wrap returned-body)))))
+ (body ,body-attrs ,returned-body))))
(if doc-type
`(group ,(raw-str doc-type) ,main)

0 comments on commit 81da4f9

Please sign in to comment.