diff options
| author | Thomas Hintz <t@thintz.com> | 2015-08-01 11:11:05 -0700 |
|---|---|---|
| committer | Thomas Hintz <t@thintz.com> | 2015-08-01 11:11:05 -0700 |
| commit | 8051b3bdeb5beefede199e8c0568b410fb40c9b2 (patch) | |
| tree | d0c0147b3f478bd77c110ccba465f0efd69cbc26 | |
| parent | c5ae5c5e58d1e1f54b60ca69c72233a7d8f0c582 (diff) | |
| download | simple-8051b3bdeb5beefede199e8c0568b410fb40c9b2.tar.gz | |
Cleaning up redirect.
| -rw-r--r-- | simple.scm | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -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) |