|
|
|
@ -221,11 +221,7 @@
|
|
|
|
($ 'sid))))
|
|
|
|
($ 'sid))))
|
|
|
|
|
|
|
|
|
|
|
|
(define (redirect-to new-uri)
|
|
|
|
(define (redirect-to new-uri)
|
|
|
|
(display (string-append "<html><head><meta http-equiv=\"refresh\" content=\"0; URL="
|
|
|
|
(signal (make-property-condition 'redirect 'uri new-uri)))
|
|
|
|
(cond ((string? new-uri) new-uri)
|
|
|
|
|
|
|
|
((uri-reference? new-uri) (uri->string new-uri))
|
|
|
|
|
|
|
|
(else (abort "invalid URI construct")))
|
|
|
|
|
|
|
|
"\"></head></html")))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define ($ var #!optional default/converter)
|
|
|
|
(define ($ var #!optional default/converter)
|
|
|
|
(unless (http-request-variables)
|
|
|
|
(unless (http-request-variables)
|
|
|
|
|
