Cleaning up redirect.

10 years ago · 8051b3bdeb
parent c5ae5c5e58
commit 8051b3bdeb
1 changed files with 1 additions and 5 deletions
--- a/simple.scm
+++ b/simple.scm
@ -221,11 +221,7 @@
           ($ 'sid))))

 (define (redirect-to new-uri)
-  (display (string-append "<html><head><meta http-equiv=\"refresh\" content=\"0; URL="
-                          (cond ((string? new-uri) new-uri)
-                                ((uri-reference? new-uri) (uri->string new-uri))
-                                (else (abort "invalid URI construct")))
-                          "\"></head></html")))
+  (signal (make-property-condition 'redirect 'uri new-uri)))

 (define ($ var #!optional default/converter)
  (unless (http-request-variables)