summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThomas Hintz <t@thintz.com>2015-08-01 11:11:05 -0700
committerThomas Hintz <t@thintz.com>2015-08-01 11:11:05 -0700
commit8051b3bdeb5beefede199e8c0568b410fb40c9b2 (patch)
treed0c0147b3f478bd77c110ccba465f0efd69cbc26
parentc5ae5c5e58d1e1f54b60ca69c72233a7d8f0c582 (diff)
downloadsimple-8051b3bdeb5beefede199e8c0568b410fb40c9b2.tar.gz
Cleaning up redirect.
-rw-r--r--simple.scm6
1 files changed, 1 insertions, 5 deletions
diff --git a/simple.scm b/simple.scm
index 54cf6d1..8a48377 100644
--- 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)