now redirect-to is a special leftparen version of the PLT web-server/…

…http/redirect) provided function (the LP version allows headers to be set along with a redirect, which is common if you are setting a cookie); got rid of the "group"ing of the body list in a sessioned-response because it was hokey (and causing a bug)...list-response is a much cleaner way

leftparen.scm

@@ -28,7 +28,7 @@
 
  ;; the work of others:
  (except-out (all-from-out (planet "web.scm" ("soegaard" "web.plt" 2 1)))
-             comment?)
+             comment? redirect-to) ; we use our own modification of redirect-to
  (all-from-out (planet "dispatch.ss" ("untyped" "dispatch.plt" 1 5)))
  (all-from-out (planet "instaservlet.ss" ("untyped" "instaservlet.plt" 1 7)))
 
@@ -145,6 +145,7 @@
  **
  page-url
  redirect-to-page
+ (rename-out (response-promise-to-redirect redirect-to))
  js-inc
  css-inc
  versioned-file-reference

page.scm

@@ -83,6 +83,7 @@
              (last body))))
     (cond (redirect-to (response-promise-to-redirect redirect-to))
           ((response/full? returned-body) returned-body)
+          ((response-promise? returned-body) returned-body)
           (plain-text (basic-response (list returned-body)
                                       ;; Hey, this is probably where we go all unicode...
                                       #:type #"text/plain;  charset=us-ascii"))

session.scm

@@ -83,7 +83,7 @@
            (let ((body-lst (list body ...)))
              (or (single-response-promise-in-list body-lst)
                  (single-response/full-in-list body-lst)
-                 `(group ,@body-lst))))))))
+                 (list-response body-lst))))))))
 
 (define (cookied-response cookie-key-str cookie-val-str
                           #:expire-in (expire-in THIRTY_DAYS)